Mac-Source 1994 July

home *** CD-ROM | disk | FTP | other *** search

/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / PowerLisp 1.01 / Library / assembler.compiled-lisp next >

Wrap

Text File | 1993-08-23 | 142.5 KB | 212 lines | [TEXT/ROSA]

`NVHÁ∏$nGÔOÔˇ¯OÔˇ¯&<‚∫/CBØ/Nπ<aF&OÔ/CBØ/Nπ>R6&OÔBπ:˛¸ LÓˇÏN^NuL@PROVIDECOMMON-LISP*SYMBOL-VALUEASSEMBLERKEYWORD`NVHÁ∏$nGÔOÔˇ¯OÔˇ¯&<‚∫/CBØ/Nπ<aF&OÔ/CBØ/Nπ<§Ü&OÔBπ:˛¸ LÓˇÏN^NuL@IN-PACKAGECOMMON-LISP*SYMBOL-VALUEASSEMBLERKEYWORD<NVHÁ∏$nGÔOÔˇ¯/<&<éX/&< u˛/&< u¬/&< uÜ/&< uJ/&< u/&< t“/&< tñ/&< tZ/&< t/&< s‚/&< s¶/&< sj/&< s./&< rÚ/&< r∂/&< rz/&< r>/&< r/&< qΔ/&< qä/&< qN/&< q/&< p÷/&< pö/&< p^/&< p"/&< oÊ/&< o™/&< on/&< o2/&< nˆ/&< n∫/&< n~/&< nB/&< n/&< m /&< mé/&< mR/&< m/&< l⁄/&< lû/&< lb/&< l&/&< kÍ/&< kÆ/&< kr/&< k6/&< j˙/&< jæ/&< jÇ/&< jF/&< j /&< iŒ/&< ií/&< iV/&< i/&< hﬁ/&< h¢/&< hf/&< h*/&< gÓ/&< g≤/&< gv/&< g:/&< f˛/&< f¬/&< fÜ/&< fJ/&< f/&< e“/&< eñ/&< eZ/&< e/&< d‚/&< d¶/&< dj/&< d./&< cÚ/&< c∂/&< cz/&< c>/&< c/&< bΔ/&< bä/&< bN/&< b/&< a÷/&< aö/&< a^/&< a"/&< `Ê/&< `™//Nπ;ÌnOÔ|&/CBØ/Nπ<≠ñ&OÔBπ:˛¸ LÓˇÏN^Nu`(EXPORTCOMMON-LISPLIST*¸ A0ASSEMBLERÙA1ÏA2‰A3‹A4‘A5ÃA6ƒA7º-A0¥-A1¨-A2§-A3ú-A4î-A5å-A6Ñ-A7|A0+tA1+lA2+dA3+\A4+TA5+LA6+DA7+<D04D1,D2$D3D4D5D6D7¸D-REGISTERSÙA-REGISTERSÏA-INC-REGISTERS‰A-DEC-REGISTERS‹$CAR‘$CDRÃ $SETCARƒ $SETCDRº$SYMBOL-VALUE¥$SYMBOL-PLIST¨ $NODE-TYPE§ $CONSPú$INTEGERî $RETURNå$FUNC-BEGINÑ$IF| $IFELSEt $REFERENCElLINKdUNLK\RTSTDC.WLDC.LDMOVEQ< MOVE.L4 MOVE.B, MOVE.W$ MOVEA.LADD.L ADDI.LAND.L ANDI.L¸OR.LÙORI.LÏEOR.L‰ EORI.L‹SUB.L‘CMP.LÃTST.Lƒ SUBI.LºCLR.L¥LEA¨JSR§BRAúBSRîBHIåBLSÑBCC|BCStBNElBEQdBVC\BVSTBPLLBMIDBGE<BLT4BGT,BLE$ MOVEM.LNIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< `™/CBØ/Nπ<‡~&OÔOÔˇÙ&< `™/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< `™/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< `™/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí A0ASSEMBLERÇ%MAKE-CONSTANTrA0bSETL%INTEGERATOM<A0,%MAKE-NON-CONSTANTA0NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< `Ê/CBØ/Nπ<‡~&OÔOÔˇÙ&< `Ê/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< `Ê/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< `Ê/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí A1ASSEMBLERÇ%MAKE-CONSTANTrA1bSETL%INTEGERATOM<A1,%MAKE-NON-CONSTANTA1NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< a"/CBØ/Nπ<‡~&OÔOÔˇÙ&< a"/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< a"/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< a"/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí A2ASSEMBLERÇ%MAKE-CONSTANTrA2bSETL%INTEGERATOM<A2,%MAKE-NON-CONSTANTA2NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< a^/CBØ/Nπ<‡~&OÔOÔˇÙ&< a^/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< a^/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< a^/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí A3ASSEMBLERÇ%MAKE-CONSTANTrA3bSETL%INTEGERATOM<A3,%MAKE-NON-CONSTANTA3NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< aö/CBØ/Nπ<‡~&OÔOÔˇÙ&< aö/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< aö/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< aö/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí A4ASSEMBLERÇ%MAKE-CONSTANTrA4bSETL%INTEGERATOM<A4,%MAKE-NON-CONSTANTA4NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< a÷/CBØ/Nπ<‡~&OÔOÔˇÙ&< a÷/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< a÷/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< a÷/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí A5ASSEMBLERÇ%MAKE-CONSTANTrA5bSETL%INTEGERATOM<A5,%MAKE-NON-CONSTANTA5NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< b/CBØ/Nπ<‡~&OÔOÔˇÙ&< b/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< b/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< b/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí A6ASSEMBLERÇ%MAKE-CONSTANTrA6bSETL%INTEGERATOM<A6,%MAKE-NON-CONSTANTA6NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< bN/CBØ/Nπ<‡~&OÔOÔˇÙ&< bN/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< bN/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< bN/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí A7ASSEMBLERÇ%MAKE-CONSTANTrA7bSETL%INTEGERATOM<A7,%MAKE-NON-CONSTANTA7NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< dj/CBØ/Nπ<‡~&OÔOÔˇÙ&< dj/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< dj/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< dj/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPíA0+ASSEMBLERÇ%MAKE-CONSTANTrA0+bSETL%INTEGERATOM<A0+,%MAKE-NON-CONSTANTA0+NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< d¶/CBØ/Nπ<‡~&OÔOÔˇÙ&< d¶/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< d¶/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< d¶/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPíA1+ASSEMBLERÇ%MAKE-CONSTANTrA1+bSETL%INTEGERATOM<A1+,%MAKE-NON-CONSTANTA1+NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< d‚/CBØ/Nπ<‡~&OÔOÔˇÙ&< d‚/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< d‚/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< d‚/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPíA2+ASSEMBLERÇ%MAKE-CONSTANTrA2+bSETL%INTEGERATOM<A2+,%MAKE-NON-CONSTANTA2+NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< e/CBØ/Nπ<‡~&OÔOÔˇÙ&< e/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< e/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< e/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPíA3+ASSEMBLERÇ%MAKE-CONSTANTrA3+bSETL%INTEGERATOM<A3+,%MAKE-NON-CONSTANTA3+NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< eZ/CBØ/Nπ<‡~&OÔOÔˇÙ&< eZ/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< eZ/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< eZ/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPíA4+ASSEMBLERÇ%MAKE-CONSTANTrA4+bSETL%INTEGERATOM<A4+,%MAKE-NON-CONSTANTA4+NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< eñ/CBØ/Nπ<‡~&OÔOÔˇÙ&< eñ/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< eñ/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< eñ/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPíA5+ASSEMBLERÇ%MAKE-CONSTANTrA5+bSETL%INTEGERATOM<A5+,%MAKE-NON-CONSTANTA5+NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< e“/CBØ/Nπ<‡~&OÔOÔˇÙ&< e“/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< e“/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< e“/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPíA6+ASSEMBLERÇ%MAKE-CONSTANTrA6+bSETL%INTEGERATOM<A6+,%MAKE-NON-CONSTANTA6+NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< f/CBØ/Nπ<‡~&OÔOÔˇÙ&< f/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< f/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< f/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPíA7+ASSEMBLERÇ%MAKE-CONSTANTrA7+bSETL%INTEGERATOM<A7+,%MAKE-NON-CONSTANTA7+NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< bä/CBØ/Nπ<‡~&OÔOÔˇÙ&< bä/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< bä/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< bä/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí-A0ASSEMBLERÇ%MAKE-CONSTANTr-A0bSETL%INTEGERATOM<-A0,%MAKE-NON-CONSTANT-A0NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< bΔ/CBØ/Nπ<‡~&OÔOÔˇÙ&< bΔ/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< bΔ/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< bΔ/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí-A1ASSEMBLERÇ%MAKE-CONSTANTr-A1bSETL%INTEGERATOM<-A1,%MAKE-NON-CONSTANT-A1NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< c/CBØ/Nπ<‡~&OÔOÔˇÙ&< c/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< c/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< c/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí-A2ASSEMBLERÇ%MAKE-CONSTANTr-A2bSETL%INTEGERATOM<-A2,%MAKE-NON-CONSTANT-A2NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< c>/CBØ/Nπ<‡~&OÔOÔˇÙ&< c>/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< c>/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< c>/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí-A3ASSEMBLERÇ%MAKE-CONSTANTr-A3bSETL%INTEGERATOM<-A3,%MAKE-NON-CONSTANT-A3NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< cz/CBØ/Nπ<‡~&OÔOÔˇÙ&< cz/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< cz/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< cz/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí-A4ASSEMBLERÇ%MAKE-CONSTANTr-A4bSETL%INTEGERATOM<-A4,%MAKE-NON-CONSTANT-A4NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< c∂/CBØ/Nπ<‡~&OÔOÔˇÙ&< c∂/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< c∂/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< c∂/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí-A5ASSEMBLERÇ%MAKE-CONSTANTr-A5bSETL%INTEGERATOM<-A5,%MAKE-NON-CONSTANT-A5NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< cÚ/CBØ/Nπ<‡~&OÔOÔˇÙ&< cÚ/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< cÚ/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< cÚ/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí-A6ASSEMBLERÇ%MAKE-CONSTANTr-A6bSETL%INTEGERATOM<-A6,%MAKE-NON-CONSTANT-A6NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< d./CBØ/Nπ<‡~&OÔOÔˇÙ&< d./C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< d./CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< d./CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí-A7ASSEMBLERÇ%MAKE-CONSTANTr-A7bSETL%INTEGERATOM<-A7,%MAKE-NON-CONSTANT-A7NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< fJ/CBØ/Nπ<‡~&OÔOÔˇÙ&< fJ/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< fJ/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< fJ/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí D0ASSEMBLERÇ%MAKE-CONSTANTrD0bSETL%INTEGERATOM<D0,%MAKE-NON-CONSTANTD0NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< fÜ/CBØ/Nπ<‡~&OÔOÔˇÙ&< fÜ/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< fÜ/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< fÜ/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí D1ASSEMBLERÇ%MAKE-CONSTANTrD1bSETL%INTEGERATOM<D1,%MAKE-NON-CONSTANTD1NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< f¬/CBØ/Nπ<‡~&OÔOÔˇÙ&< f¬/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< f¬/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< f¬/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí D2ASSEMBLERÇ%MAKE-CONSTANTrD2bSETL%INTEGERATOM<D2,%MAKE-NON-CONSTANTD2NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< f˛/CBØ/Nπ<‡~&OÔOÔˇÙ&< f˛/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< f˛/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< f˛/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí D3ASSEMBLERÇ%MAKE-CONSTANTrD3bSETL%INTEGERATOM<D3,%MAKE-NON-CONSTANTD3NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< g:/CBØ/Nπ<‡~&OÔOÔˇÙ&< g:/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< g:/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< g:/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí D4ASSEMBLERÇ%MAKE-CONSTANTrD4bSETL%INTEGERATOM<D4,%MAKE-NON-CONSTANTD4NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< gv/CBØ/Nπ<‡~&OÔOÔˇÙ&< gv/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< gv/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< gv/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí D5ASSEMBLERÇ%MAKE-CONSTANTrD5bSETL%INTEGERATOM<D5,%MAKE-NON-CONSTANTD5NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< g≤/CBØ/Nπ<‡~&OÔOÔˇÙ&< g≤/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< g≤/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< g≤/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí D6ASSEMBLERÇ%MAKE-CONSTANTrD6bSETL%INTEGERATOM<D6,%MAKE-NON-CONSTANTD6NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< gÓ/CBØ/Nπ<‡~&OÔOÔˇÙ&< gÓ/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< gÓ/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< gÓ/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí D7ASSEMBLERÇ%MAKE-CONSTANTrD7bSETL%INTEGERATOM<D7,%MAKE-NON-CONSTANTD7NILNVHÁ∏$nGÔ&<éXOÔˇ¯&< h*/CBØ/Nπ<‡~&OÔOÔˇÙ&< h*/C/<&<éX/&< gÓ/&< g≤/&< gv/&< g:/&< f˛/&< f¬/&< fÜ/&< fJ//Nπ;ÌnOÔ,&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< h*/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< h*/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^Nu¯Ï%MAKE-SPECIALCOMMON-LISP‹D-REGISTERSASSEMBLERÃ%MAKE-CONSTANTºD-REGISTERS¨SETñLIST*åD0ÑD1|D2tD3lD4dD5\D6TD7LNIL<D-REGISTERS,%MAKE-NON-CONSTANTD-REGISTERSNILNVHÁ∏$nGÔ&<éXOÔˇ¯&< hf/CBØ/Nπ<‡~&OÔOÔˇÙ&< hf/C/<&<éX/&< bN/&< b/&< a÷/&< aö/&< a^/&< a"/&< `Ê/&< `™//Nπ;ÌnOÔ,&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< hf/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< hf/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^Nu¯Ï%MAKE-SPECIALCOMMON-LISP‹A-REGISTERSASSEMBLERÃ%MAKE-CONSTANTºA-REGISTERS¨SETñLIST*åA0ÑA1|A2tA3lA4dA5\A6TA7LNIL<A-REGISTERS,%MAKE-NON-CONSTANTA-REGISTERSNILNVHÁ∏$nGÔ&<éXOÔˇ¯&< h¢/CBØ/Nπ<‡~&OÔOÔˇÙ&< h¢/C/<&<éX/&< f/&< e“/&< eñ/&< eZ/&< e/&< d‚/&< d¶/&< dj//Nπ;ÌnOÔ,&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< h¢/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< h¢/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^Nu¯Ï%MAKE-SPECIALCOMMON-LISP‹A-INC-REGISTERSASSEMBLERÃ%MAKE-CONSTANTºA-INC-REGISTERS¨SETñLIST*åA0+ÑA1+|A2+tA3+lA4+dA5+\A6+TA7+LNIL<A-INC-REGISTERS,%MAKE-NON-CONSTANTA-INC-REGISTERSNILNVHÁ∏$nGÔ&<éXOÔˇ¯&< hﬁ/CBØ/Nπ<‡~&OÔOÔˇÙ&< hﬁ/C/<&<éX/&< d./&< cÚ/&< c∂/&< cz/&< c>/&< c/&< bΔ/&< bä//Nπ;ÌnOÔ,&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< hﬁ/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< hﬁ/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^Nu¯Ï%MAKE-SPECIALCOMMON-LISP‹A-DEC-REGISTERSASSEMBLERÃ%MAKE-CONSTANTºA-DEC-REGISTERS¨SETñLIST*å-A0Ñ-A1|-A2t-A3l-A4d-A5\-A6T-A7LNIL<A-DEC-REGISTERS,%MAKE-NON-CONSTANTA-DEC-REGISTERSNIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< Ï‹/CBØ/Nπ<‡~&OÔOÔˇÙ&< Ï‹/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< Ï‹/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< Ï‹/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí *SYMBOL-VALUE-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*SYMBOL-VALUE-OFFSET*bSETL%INTEGERATOM<*SYMBOL-VALUE-OFFSET*,%MAKE-NON-CONSTANT*SYMBOL-VALUE-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< Ô¸/CBØ/Nπ<‡~&OÔOÔˇÙ&< Ô¸/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< Ô¸/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< Ô¸/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí *SYMBOL-PLIST-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*SYMBOL-PLIST-OFFSET*bSETL%INTEGERATOM<*SYMBOL-PLIST-OFFSET*,%MAKE-NON-CONSTANT*SYMBOL-PLIST-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< Û/CBØ/Nπ<‡~&OÔOÔˇÙ&< Û/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< Û/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< Û/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí"*SYMBOL-PACKAGE-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*SYMBOL-PACKAGE-OFFSET*bSETL%INTEGERATOM<*SYMBOL-PACKAGE-OFFSET*,%MAKE-NON-CONSTANT*SYMBOL-PACKAGE-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< ˆ</CBØ/Nπ<‡~&OÔOÔˇÙ&< ˆ</C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< ˆ</CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< ˆ</CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí*SYMBOL-NAME-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*SYMBOL-NAME-OFFSET*bSETL%INTEGERATOM<*SYMBOL-NAME-OFFSET*,%MAKE-NON-CONSTANT*SYMBOL-NAME-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< ˘\/CBØ/Nπ<‡~&OÔOÔˇÙ&< ˘\/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< ˘\/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< ˘\/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí *SYMBOL-FLAGS-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*SYMBOL-FLAGS-OFFSET*bSETL%INTEGERATOM<*SYMBOL-FLAGS-OFFSET*,%MAKE-NON-CONSTANT*SYMBOL-FLAGS-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< ¸|/CBØ/Nπ<‡~&OÔOÔˇÙ&< ¸|/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< ¸|/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< ¸|/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí+*SYMBOL-JUMP-TABLE-ENTRY-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr#*SYMBOL-JUMP-TABLE-ENTRY-OFFSET*bSETL%INTEGERATOM<#*SYMBOL-JUMP-TABLE-ENTRY-OFFSET*,%MAKE-NON-CONSTANT#*SYMBOL-JUMP-TABLE-ENTRY-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&< ˇú/CBØ/Nπ<‡~&OÔOÔˇÙ&< ˇú/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&< ˇú/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&< ˇú/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí'*SYMBOL-JUMP-ADDRESS-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*SYMBOL-JUMP-ADDRESS-OFFSET*bSETL%INTEGERATOM<*SYMBOL-JUMP-ADDRESS-OFFSET*,%MAKE-NON-CONSTANT*SYMBOL-JUMP-ADDRESS-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&<!º/CBØ/Nπ<‡~&OÔOÔˇÙ&<!º/C/< NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!º/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&<!º/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí#*SYMBOL-FUNCTION-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*SYMBOL-FUNCTION-OFFSET*bSETL%INTEGERATOM<*SYMBOL-FUNCTION-OFFSET*,%MAKE-NON-CONSTANT*SYMBOL-FUNCTION-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&<!‹/CBØ/Nπ<‡~&OÔOÔˇÙ&<!‹/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!‹/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&<!‹/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí*NODE-CAR-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*NODE-CAR-OFFSET*bSETL%INTEGERATOM<*NODE-CAR-OFFSET*,%MAKE-NON-CONSTANT*NODE-CAR-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&<!¸/CBØ/Nπ<‡~&OÔOÔˇÙ&<!¸/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!¸/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&<!¸/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí*NODE-CDR-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*NODE-CDR-OFFSET*bSETL%INTEGERATOM<*NODE-CDR-OFFSET*,%MAKE-NON-CONSTANT*NODE-CDR-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&<!/CBØ/Nπ<‡~&OÔOÔˇÙ&<!/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&<!/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí*NODE-FLAGS-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*NODE-FLAGS-OFFSET*bSETL%INTEGERATOM<*NODE-FLAGS-OFFSET*,%MAKE-NON-CONSTANT*NODE-FLAGS-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&<!</CBØ/Nπ<‡~&OÔOÔˇÙ&<!</C/< NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!</CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&<!</CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí*NODE-TYPE-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*NODE-TYPE-OFFSET*bSETL%INTEGERATOM<*NODE-TYPE-OFFSET*,%MAKE-NON-CONSTANT*NODE-TYPE-OFFSET*NIL¬NVHÁ∏$nGÔ&<éXOÔˇ¯&<!\/CBØ/Nπ<‡~&OÔOÔˇÙ&<!\/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!\/CBØ/Nπ<ﬂÆ&OÔOÔˇ¯&<!\/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NuÆ¢%MAKE-SPECIALCOMMON-LISPí *NODE-INTEGER-OFFSET*ASSEMBLERÇ%MAKE-CONSTANTr*NODE-INTEGER-OFFSET*bSETL%INTEGERATOM<*NODE-INTEGER-OFFSET*,%MAKE-NON-CONSTANT*NODE-INTEGER-OFFSET*NILÇNVHÁ∏$nGÔ&<éXOÔˇÙ&<!§/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!§/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^Nunb%MAKE-SPECIALCOMMON-LISPR*ASSEMBLER-ADDRESS*ASSEMBLERBSET,%INTEGERATOM*ASSEMBLER-ADDRESS*NILÇNVHÁ∏$nGÔ&<éXOÔˇÙ&<!L/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!L/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^Nunb%MAKE-SPECIALCOMMON-LISPR$*ASSEMBLER-LOCAL-ADDRESS*ASSEMBLERBSET,%INTEGERATOM*ASSEMBLER-LOCAL-ADDRESS*NILvNVHÁ∏$nGÔ&<éXOÔˇÙ&<!/C&<éX/CBØ/Nπ;‚÷&OÔOÔˇ¯&<!/CBØ/Nπ<·&OÔBπ:˛¸ LÓˇÏN^NubV%MAKE-SPECIALCOMMON-LISPF!*ASSEMBLER-REFERENCES*ASSEMBLER6SET&NIL*ASSEMBLER-REFERENCES*NILŒNVHÁ∏$nGÔOÔˇÙ&< i/C/</<hP/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< i/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< iBπ:˛¸ LÓˇÏN^Nu∫¥$CARASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ$CARn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&$CAR*NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'C&+∂ºéXg&<éX` &+'COÔˇ¯OÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯&<!‹/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^Nu APPENDCOMMON-LISPÙLISTﬁ APPEND»LIST®LISTí APPEND|LISTfSYMBOL-VALUEV*NODE-CAR-OFFSET*ASSEMBLER>LISTLIST MOVE.L‰NIL⁄NILΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< iV/C/</</#./Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< iV/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< iVBπ:˛¸ LÓˇÏN^Nu∫¥$CDRASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ$CDRn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&$CDR*NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'C&+∂ºéXg&<éX` &+'COÔˇ¯OÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯&<!¸/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^Nu APPENDCOMMON-LISPÙLISTﬁ APPEND»LIST®LISTí APPEND|LISTfSYMBOL-VALUEV*NODE-CDR-OFFSET*ASSEMBLER>LISTLIST MOVE.L‰NIL⁄NILΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< ií/C/</< œ"/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< ií/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< iíBπ:˛¸ LÓˇÏN^Nu∫¥$SETCARASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ $SETCARn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& $SETCAR NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯OÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯&<!‹/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^NuˆÍAPPENDCOMMON-LISP‘LISTæ APPEND®LISTí APPEND|LISTfSYMBOL-VALUEV*NODE-CAR-OFFSET*ASSEMBLER>LISTLISTˆLISTÊ MOVE.LΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< iŒ/C/</<1ÉÄ/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< iŒ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< iŒBπ:˛¸ LÓˇÏN^Nu∫¥$SETCDRASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ $SETCDRn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& $SETCDR NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯OÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯&<!¸/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^NuˆÍAPPENDCOMMON-LISP‘LISTæ APPEND®LISTí APPEND|LISTfSYMBOL-VALUEV*NODE-CDR-OFFSET*ASSEMBLER>LISTLISTˆLISTÊ MOVE.LΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< j /C/</<, ‡/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< j /CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< j Bπ:˛¸ LÓˇÏN^Nu∫¥$SYMBOL-VALUEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ$SYMBOL-VALUEn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&$SYMBOL-VALUElNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇOÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯&< Ï‹/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu$XLAPPENDCOMMON-LISP6LIST APPEND LISTÍLIST‘ APPENDæLISTñLISTÜMOVE.LASSEMBLERjLISTT APPEND>LISTLIST APPENDÚLIST‹SYMBOL-VALUEÃ*SYMBOL-VALUE-OFFSET*¥LISTåLIST| MOVE.L`LISTJ APPEND4LISTLIST˛ APPENDËLIST¿LIST∞ MOVE.LêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< jF/C/</<!S∂/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< jF/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< jFBπ:˛¸ LÓˇÏN^Nu∫¥$SYMBOL-PLISTASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ$SYMBOL-PLISTn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&$SYMBOL-PLIST†NVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯&< Ô¸/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^NuåÄAPPENDCOMMON-LISPjLISTT APPEND>LISTLIST APPENDÚLIST‹SYMBOL-VALUEÃ *SYMBOL-PLIST-OFFSET*ASSEMBLER¥LISTåLIST| MOVE.L`LISTJ APPEND4LISTLIST˛ APPENDËLIST¿LIST∞ MOVE.LêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< jÇ/C/</<6‰`/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< jÇ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< jÇBπ:˛¸ LÓˇÏN^Nu∫¥$NODE-TYPEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ $NODE-TYPEn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& $NODE-TYPE‚NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&<!</CBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Ò.&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇOÔˇ¯&< on/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/<ˇNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^NuŒ¬APPENDCOMMON-LISP¨LISTñ APPENDÄLIST`LISTJ%INTEGERATOM0LIST ANDI.LASSEMBLERLISTÓ APPENDÿLIST∏LIST¢ APPENDåLISTv-`%INTEGERATOMJSYMBOL-VALUE:*NODE-TYPE-OFFSET*LISTˆLISTÊ MOVE.LΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< jæ/C/</<)ë/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< jæ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< jæBπ:˛¸ LÓˇÏN^Nu∫¥$CONSPASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ $CONSPn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& $CONSPNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯OÔˇOÔˇ¯&< jÇ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯&< fJ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇOÔˇ¯&< p÷/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/<NπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&< fJ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˛ÚAPPENDCOMMON-LISP‹LISTΔ APPEND∞LIST† D0ASSEMBLERåLISTv%INTEGERATOM\LISTLCMP.L0LIST APPENDLISTÙD0‡LIST¿LIST∞ $NODE-TYPEêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< j˙/C/</<:5 /Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< j˙/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< j˙Bπ:˛¸ LÓˇÏN^Nu∫¥$INTEGERASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ$INTEGERn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&$INTEGER*NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'C&+∂ºéXg&<éX` &+'COÔˇ¯OÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯&<!\/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^Nu APPENDCOMMON-LISPÙLISTﬁ APPEND»LIST®LISTí APPEND|LISTfSYMBOL-VALUEV *NODE-INTEGER-OFFSET*ASSEMBLER>LISTLIST MOVE.L‰NIL⁄NILΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< k6/C/</<¡Ç/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< k6/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< k6Bπ:˛¸ LÓˇÏN^Nu∫¥$RETURNASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ $RETURNn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& $RETURN∏NVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/k&< fJ/CBØ/Nπ<&OÔ∂ºéXg†OÔˇOÔˇ¯OÔˇÙOÔˇ¯&< qä/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯OÔˇ¯&<‰é/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&< lû/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&< b/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯OÔˇ¯&< l⁄/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ`8OÔˇÏOÔˇ¯OÔˇÙOÔˇ¯&< qä/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯OÔˇ¯&<‰é/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/COÔˇ¯&< fJ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&< lû/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&< b/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯OÔˇ¯&< l⁄/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu8§òAPPENDCOMMON-LISPÇLISTl APPENDVLISTFRTSASSEMBLER*LIST APPEND˛LISTÓA6⁄LIST UNLKÆLISTò APPENDÇLISTrD0^LIST>LIST. MOVE.LLIST¸ APPENDÊLIST– APPEND∫LIST™%MULTIPLE-VALUES-ADDRESSéLIST~CLR.L^ APPENDHLIST2 APPENDLISTRTSLIST⁄ APPENDƒLIST¥A6†LISTêUNLKtLIST^ APPENDHLIST2 APPENDLIST%MULTIPLE-VALUES-ADDRESSLIST‡CLR.LΔNIL∫EQ™D0êNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< kr/C/</<2§∏/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< kr/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< krBπ:˛¸ LÓˇÏN^Nu∫¥$FUNC-BEGINASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ$FUNC-BEGINn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&$FUNC-BEGINjNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯OÔˇOÔˇ¯&< lb/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&< b/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇOÔˇ¯&< m /CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&< b/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/<NπqybOÔ&/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&< `™/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^NuVJAPPENDCOMMON-LISP4LIST APPENDLIST¯ A0ASSEMBLER‰LISTŒ APPEND∏LIST¢%INTEGERATOMàLISTxA6\LISTL MOVE.L0LIST APPENDLIST‰LIST‘A6¿LIST∞LINKêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< kÆ/C/</<(‘/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< kÆ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< kÆBπ:˛¸ LÓˇÏN^Nu∫¥$IFASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ$IFn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&$IF≤NVˇËHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¸BØ/Nπ<aÊ&OÔ'COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ;¸n&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg"OÔˇ¯/kBØ/Nπ;⁄6&OÔ'COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ;¸n&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg"OÔˇ¯/kBØ/Nπ;⁄6&OÔ'COÔˇÏ/kOÔˇ¯OÔˇÙOÔˇ¯&< s¶/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/C/kOÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‘N^NuûíAPPENDCOMMON-LISP|LISTVLIST@ APPEND*LIST LIST˙BNEASSEMBLER‘LIST∫NILÆNOTòLISTPÇCARZLIST@NIL4NOTLISTPCAR‡ GENSYMΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< kÍ/C/</<&Lr/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< kÍ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< kÍBπ:˛¸ LÓˇÏN^Nu∫¥$IFELSEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ $IFELSEn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& $IFELSENVˇ‡HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¸BØ/Nπ<aÊ&OÔ'COÔˇ¸BØ/Nπ<aÊ&OÔ'COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ;¸n&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg"OÔˇ¯/kBØ/Nπ;⁄6&OÔ'COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ;¸n&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg"OÔˇ¯/kBØ/Nπ;⁄6&OÔ'COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ;¸n&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg"OÔˇ¯/kBØ/Nπ;⁄6&OÔ'COÔˇ‡/kOÔˇ¯OÔˇÙOÔˇ¯&< s¶/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/C/kOÔˇ¯OÔˇÙOÔˇ¯&< r>/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/C/kOÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ$Bπ:˛¸ LÓˇÃN^Nu*˙APPENDCOMMON-LISP‰LISTæLISTûLISTà APPENDrLISTRLISTBBRAASSEMBLER LIST APPENDÙLIST‘LISTƒBNEûLISTÑNILxNOTbLISTPLCAR$LIST NIL˛NOTËLISTP“CAR™LISTêNILÑNOTnLISTPXCAR0 GENSYM GENSYM¸NTH‡%INTEGERATOMΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< l&/C/</</ú</Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< l&/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< l&Bπ:˛¸ LÓˇÏN^Nu∫¥$REFERENCEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ $REFERENCEn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& $REFERENCE∫NVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'C&<éXBπ:˛¸ LÓˇ‹N^Nu ¶†NILCOMMON-LISPêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< lb/C/</</Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< lb/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< lbBπ:˛¸ LÓˇÏN^Nu∫¥LINKASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇLINKn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&LINKäNVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ<aF&OÔ/C/<NPNπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^NuvjAPPENDCOMMON-LISPTLIST4LIST+%INTEGERATOMÚSYMBOL-VALUEΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< lû/C/</<)Ü≤/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< lû/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< lûBπ:˛¸ LÓˇÏN^Nu∫¥UNLKASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇUNLKn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&UNLK4NVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯OÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ<aF&OÔ/C/<NXNπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu APPENDCOMMON-LISP˛LISTË+“%INTEGERATOMºSYMBOL-VALUEêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< l⁄/C/</<2∫ /Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< l⁄/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< l⁄Bπ:˛¸ LÓˇÏN^Nu∫¥RTSASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇRTSn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&RTSƒNVˇÙHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇ¯OÔˇ¯/<NuNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‡N^Nu ∞§APPENDCOMMON-LISPéLISTx%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< m/C/</<#g(/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< m/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< mBπ:˛¸ LÓˇÏN^Nu∫¥DC.WASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇDC.Wn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&DC.WÓNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/Nπ<É÷&OÔ∂ºéXgΔOÔˇÙOÔˇÙOÔˇ¯&<‰¨/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/C/<ˇ˛NπqybOÔ&/CBØ/NπE_Δ&OÔOÔˇ¯OÔˇ¯/kBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ`ROÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXg"OÔˇ¯/kBØ/Nπ;⁄6&OÔ`&<éXBπ:˛¸ LÓˇ‹N^Nu⁄‘NILCOMMON-LISPƒLIST™NILûSYMBOL-VALUEéTzLISTdSYMBOL-VALUEDADD-REFERENCEASSEMBLER.%INTEGERATOM APPENDLIST‚LIST“%SYMBOL-VALUE-WORDºNIL∞ SYMBOLPêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< mR/C/</<9gÓ/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< mR/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< mRBπ:˛¸ LÓˇÏN^Nu∫¥DC.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇDC.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&DC.L&NVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/Nπ<É÷&OÔ∂ºéXgbOÔˇÙOÔˇÙOÔˇ¯&<"A6/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/C/<ˇ˛NπqybOÔ&/CBØ/NπE_Δ&OÔOÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔ`ÓOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgæOÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔ`&<éXBπ:˛¸ LÓˇ‹N^Nu)NILCOMMON-LISP¸APPLY‚ APPEND“¬CONS∏NIL®úTRUNCATEÜ%INTEGERATOMdSYMBOL-FUNCTIONTLISTFNIL:SYMBOL-VALUE*TAPPLY¸ APPENDÏ‹CONS“NIL¬∂TRUNCATE†%INTEGERATOMäSYMBOL-VALUEdSYMBOL-FUNCTIONTLISTDADD-REFERENCEASSEMBLER.%INTEGERATOM APPENDLIST‚LIST“%SYMBOL-VALUEºNIL∞ SYMBOLPêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< mé/C/</<4]¯/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< mé/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< méBπ:˛¸ LÓˇÏN^Nu∫¥MOVEQASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇMOVEQn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&MOVEQ¶NVˇËHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ˆ.&OÔ'C&+∂ºéXg &+`hOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXg8OÔˇÙ/k/<ˇNπqybOÔ&/CBØ/Nπ;ıé&OÔ`&<éX∂ºéXgÑOÔˇÙOÔˇÃ O ¸Data ¸ out ¸ of ¸rang ¸e.~% ¸Inst ¸ruct ¸ion: ¸ mov ¸eq ¸Valu ¸e: ~ ¸A/Nπqy∫OÔ8&/C/kBØ/Nπ;Î&&OÔOÔˇÙ/kOÔˇ¯&< h*/CBØ/Nπ<aF&OÔ/CBØ/Nπ<&OÔ∂ºéXg&<éX`êOÔˇÙOÔˇƒ O ¸Inva ¸lid ¸data ¸ reg ¸iste ¸r. ~ ¸%Ins ¸truc ¸tion ¸: mo ¸veq ¸ Ope ¸rand ¸: ~A ¸/Nπqy∫OÔ@&/C/kBØ/Nπ;Î&&OÔOÔˇ¯OÔˇ/<pNπqybOÔ&/C/kOÔˇÙOÔˇ¯/kBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔBπ:˛¸ LÓˇ‘N^Nu#íÜLISTCOMMON-LISPp+Z*D%INTEGERATOM.SYMBOL-VALUE%INTEGERATOMÍERRORŒ%STRINGATOM^NILTNILH MEMBER2SYMBOL-VALUE"D-REGISTERSASSEMBLERERRORÏ%STRINGATOMàNILÇNILr>\%INTEGERATOMBNIL6SYMBOL-VALUE&TNIL¸<Ê%INTEGERATOMΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< m /C/</< l:/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< m /CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< m Bπ:˛¸ LÓˇÏN^Nu∫¥MOVE.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ MOVE.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& MOVE.LNVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ/k/k&<"c“/CBØ/NπEë~&OÔBπ:˛¸ LÓˇÿN^NuˆMOVE-INSTRUCTIONASSEMBLERÊLONGΔNTHCOMMON-LISP™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< n/C/</<*¸‡/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< n/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< nBπ:˛¸ LÓˇÏN^Nu∫¥MOVE.BASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ MOVE.Bn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& MOVE.BNVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ/k/k&<"P,/CBØ/NπEë~&OÔBπ:˛¸ LÓˇÿN^NuˆMOVE-INSTRUCTIONASSEMBLERÊBYTEΔNTHCOMMON-LISP™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< nB/C/</<5Ü8/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< nB/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< nBBπ:˛¸ LÓˇÏN^Nu∫¥MOVE.WASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ MOVE.Wn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& MOVE.WNVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ/k/k&<"uÚ/CBØ/NπEë~&OÔBπ:˛¸ LÓˇÿN^NuˆMOVE-INSTRUCTIONASSEMBLERÊWORDΔNTHCOMMON-LISP™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&<"c/C/</<0hL/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<÷û&OÔOÔˇ¯OÔˇ¯&<"c/CBØ/Nπ<`&OÔ/CBØ/Nπ<„^&OÔ&<"cBπ:˛¸ LÓˇÏN^Nu∫¥MOVE-INSTRUCTIONASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíSYMBOL-FUNCTIONÇMOVE-INSTRUCTIONn$SET-SYMBOL-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&MOVE-INSTRUCTIONöNVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@/Nπq}¢OÔ'@/Nπq}¢OÔ'@/Nπq}“OÔ&<éXOÔˇÙ/k/kBØ/NπE©˛&OÔ'COÔˇÙ/k/kBØ/NπE©˛&OÔ'C'|éX&+'COÔˇÙ/k/<&<éX/&<"c“//Nπ;ÌnOÔ&/CBØ/Nπ<&OÔ∂ºéXg/< NπqybOÔ&`–OÔˇÙ/k/<&<éX/&<"P,//Nπ;ÌnOÔ&/CBØ/Nπ<&OÔ∂ºéXg/<NπqybOÔ&`lOÔˇÙ/k/<&<éX/&<"uÚ//Nπ;ÌnOÔ&/CBØ/Nπ<&OÔ∂ºéXg/<0NπqybOÔ&`&<éX'COÔˇOÔˇ¯OÔˇË/kOÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu+ÜzAPPENDCOMMON-LISPdENCODED-ADDRESS-DATAASSEMBLERDENCODED-ADDRESS-DATA$LIST+¯ENCODED-ADDRESS-REGÿ*¬%INTEGERATOM¨ENCODED-ADDRESS-MODEà*r%INTEGERATOM\ENCODED-ADDRESS-MODE8*"%INTEGERATOMENCODED-ADDRESS-REG‹NILÃ%INTEGERATOMºNIL∞ MEMBERöLIST*êWORDàNILh%INTEGERATOMXNILL MEMBER6LIST*,BYTE$NIL%INTEGERATOMÙNILË MEMBER“LIST*»LONG¿NIL†NILêENCODE-ADDRESSjENCODE-ADDRESSNNILD %CHECKNULL4%CHECKOBJ$%CHECKOBJ%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< n~/C/</<&œ⁄/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< n~/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< n~Bπ:˛¸ LÓˇÏN^Nu∫¥MOVEA.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ MOVEA.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& MOVEA.L8NVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/kOÔˇ¯&< hf/CBØ/Nπ<aF&OÔ/CBØ/Nπ<&OÔ∂ºéXg&<éX`ñOÔˇÙOÔˇ¿ O ¸Inva ¸lid ¸addr ¸ess ¸regi ¸ster ¸. ~% ¸Inst ¸ruct ¸ion: ¸ mov ¸ea.l ¸ Op ¸eran ¸d: ~ ¸A/Nπqy∫OÔD&/C/kBØ/Nπ;Î&&OÔOÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/Nπ<aF&OÔ'COÔˇÙOÔˇ¯OÔˇÏ/< @NπqybOÔ&/COÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu$APPENDCOMMON-LISPENCODED-ADDRESS-DATAASSEMBLER‚LISTÃ+∂ENCODED-ADDRESS-REGñ*Ä%INTEGERATOMjENCODED-ADDRESS-MODEF*0%INTEGERATOM%INTEGERATOMÓSYMBOL-VALUEŒENCODE-ADDRESS≤ERRORñ%STRINGATOM NILNIL MEMBERÙSYMBOL-VALUE‰A-REGISTERSΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< n∫/C/</<.3Œ/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< n∫/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< n∫Bπ:˛¸ LÓˇÏN^Nu∫¥ADD.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇADD.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&ADD.LHNVˇ‡HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ'C&+∂ºéXg &+`ÇOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgROÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ`&<éX∂ºéXg&<éX`¿OÔˇOÔˇ® O ¸The ¸sour ¸ce o ¸r de ¸stin ¸atio ¸n mu ¸st b ¸e a ¸d-re ¸gist ¸er. ¸~%In ¸stru ¸ctio ¸n: a ¸dd.l ¸ Op ¸eran ¸ds: ¸~A, ¸~A/Nπqy∫OÔ\&/C/k/kBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXgåOÔˇÙOÔˇ¯OÔˇË/<–NπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔ`àOÔˇÙOÔˇ¯OÔˇË/<–NπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÃN^Nu=4(APPENDCOMMON-LISPENCODED-ADDRESS-DATAASSEMBLERÚLIST‹+ΔENCODED-ADDRESS-REG¶*ê%INTEGERATOMzENCODED-ADDRESS-MODEV*@%INTEGERATOM*%INTEGERATOM*˙%INTEGERATOM‰ENCODED-ADDRESS-REG¿%INTEGERATOMû APPENDàENCODED-ADDRESS-DATAhLISTR+<ENCODED-ADDRESS-REG*%INTEGERATOMENCODED-ADDRESS-MODEÃ*∂%INTEGERATOM†%INTEGERATOMÜ*p%INTEGERATOMZENCODED-ADDRESS-REG6%INTEGERATOMNIL=¯%INTEGERATOM‚ENCODED-ADDRESS-MODE¬ERROR†%STRINGATOMNIL¸NILˆNILÊ=–%INTEGERATOM∫ENCODED-ADDRESS-MODEúNILêSYMBOL-VALUEÄTjNILV=@%INTEGERATOM*ENCODED-ADDRESS-MODEENCODE-ADDRESSÊENCODE-ADDRESSΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< nˆ/C/</<(òú/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< nˆ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< nˆBπ:˛¸ LÓˇÏN^Nu∫¥ADDI.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ ADDI.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& ADDI.L¸NVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ&<!L/COÔˇÙOÔˇ¯&<!L/CBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔ&+'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/Nπ<|^&OÔ∂ºéXg&<éX`úOÔˇÙOÔˇº O ¸The ¸sour ¸ce m ¸ust ¸be a ¸n in ¸tege ¸r. ~ ¸%Ins ¸truc ¸tion ¸: ad ¸di.l ¸ Op ¸eran ¸d: ~ ¸A/Nπqy∫OÔH&/C/kBØ/Nπ;Î&&OÔOÔˇOÔˇ¯OÔˇ/<ÄNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu)Ë‹APPENDCOMMON-LISPΔENCODED-ADDRESS-DATAASSEMBLER¶APPLYå APPEND|lCONSbNILRFTRUNCATE0%INTEGERATOMSYMBOL-FUNCTION˛LISTÍLIST‘+æENCODED-ADDRESS-REGû*à%INTEGERATOMrENCODED-ADDRESS-MODEN%INTEGERATOM0ERROR%STRINGATOMòNILéNILÇINTEGERPbENCODE-ADDRESS>SET(+%INTEGERATOM¸SYMBOL-VALUEÏ*ASSEMBLER-LOCAL-ADDRESS*⁄*ASSEMBLER-LOCAL-ADDRESS*ΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< o2/C/</<8/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< o2/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< o2Bπ:˛¸ LÓˇÏN^Nu∫¥AND.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇAND.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&AND.L‰NVˇ‹HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ'C&+∂ºéXg &+`ÇOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgROÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ`&<éX∂ºéXg&<éX`¿OÔˇOÔˇ® O ¸The ¸sour ¸ce o ¸r de ¸stin ¸atio ¸n mu ¸st b ¸e a ¸d-re ¸gist ¸er. ¸~%In ¸stru ¸ctio ¸n: a ¸nd.l ¸ Op ¸eran ¸ds: ¸~A, ¸~A/Nπqy∫OÔ\&/C/k/kBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ'C &+ ∂ºéXg &+ `ÇOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgROÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ`&<éX∂ºéXgÆOÔˇOÔˇ¥ O ¸A-re ¸gist ¸er n ¸ot a ¸llow ¸ed a ¸s op ¸eran ¸d. ~ ¸%Ins ¸truc ¸tion ¸: an ¸d.l ¸ Ope ¸rand ¸s: ~ ¸A, ~ ¸A/Nπqy∫OÔP&/C/k/kBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXgåOÔˇÙOÔˇ¯OÔˇË/<¿NπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔ`àOÔˇÙOÔˇ¯OÔˇË/<¿NπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ»N^NuK–ƒAPPENDCOMMON-LISPÆENCODED-ADDRESS-DATAASSEMBLERéLISTx+bENCODED-ADDRESS-REGB*,%INTEGERATOMENCODED-ADDRESS-MODEÚ*‹%INTEGERATOMΔ%INTEGERATOM¨*ñ%INTEGERATOMÄENCODED-ADDRESS-REG\%INTEGERATOM: APPEND$ENCODED-ADDRESS-DATALISTÓ+ÿENCODED-ADDRESS-REG∏*¢%INTEGERATOMåENCODED-ADDRESS-MODEh*R%INTEGERATOM<%INTEGERATOM"*%INTEGERATOMˆENCODED-ADDRESS-REG“%INTEGERATOM∂NIL™=î%INTEGERATOM~ENCODED-ADDRESS-MODE^ERROR<%STRINGATOM¥NILÆNILû=à%INTEGERATOMrENCODED-ADDRESS-MODETNILHSYMBOL-VALUE8T"NIL=¯%INTEGERATOM‚ENCODED-ADDRESS-MODE¬ERROR†%STRINGATOMNIL¸NILˆNILÊ=–%INTEGERATOM∫ENCODED-ADDRESS-MODEúNILêSYMBOL-VALUEÄTjNILV=@%INTEGERATOM*ENCODED-ADDRESS-MODEENCODE-ADDRESSÊENCODE-ADDRESSΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< on/C/</<8TÓ/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< on/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< onBπ:˛¸ LÓˇÏN^Nu∫¥ANDI.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ ANDI.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& ANDI.L¯NVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ&<!L/COÔˇÙOÔˇ¯&<!L/CBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔ&+'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/Nπ<|^&OÔ∂ºéXg&<éX`úOÔˇÙOÔˇº O ¸The ¸sour ¸ce m ¸ust ¸be a ¸n in ¸tege ¸r. ~ ¸%Ins ¸truc ¸tion ¸: an ¸di.l ¸ Op ¸eran ¸d: ~ ¸A/Nπqy∫OÔH&/C/kBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXg®OÔˇÙOÔˇ¥ O ¸A-re ¸gist ¸er n ¸ot a ¸llow ¸ed a ¸s de ¸stin ¸atio ¸n. ~ ¸%Ins ¸truc ¸tion ¸: an ¸di.l ¸ Op ¸eran ¸d: ~ ¸A/Nπqy∫OÔP&/C/kBØ/Nπ;Î&&OÔOÔˇOÔˇ¯OÔˇ/<ÄNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu/‰ÿAPPENDCOMMON-LISP¬ENCODED-ADDRESS-DATAASSEMBLER¢APPLYà APPENDxhCONS^NILNBTRUNCATE,%INTEGERATOM SYMBOL-FUNCTION˙LISTÊLIST–+∫ENCODED-ADDRESS-REGö*Ñ%INTEGERATOMnENCODED-ADDRESS-MODEJ%INTEGERATOM,ERROR%STRINGATOMàNIL|=f%INTEGERATOMPENCODED-ADDRESS-MODE0ERROR%STRINGATOMòNILéNILÇINTEGERPbENCODE-ADDRESS>SET(+%INTEGERATOM¸SYMBOL-VALUEÏ*ASSEMBLER-LOCAL-ADDRESS*⁄*ASSEMBLER-LOCAL-ADDRESS*ΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< o™/C/</<*:/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< o™/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< o™Bπ:˛¸ LÓˇÏN^Nu∫¥OR.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇOR.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&OR.L‰NVˇ‹HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ'C&+∂ºéXg &+`ÇOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgROÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ`&<éX∂ºéXg&<éX`¿OÔˇOÔˇ® O ¸The ¸sour ¸ce o ¸r de ¸stin ¸atio ¸n mu ¸st b ¸e a ¸d-re ¸gist ¸er. ¸~%In ¸stru ¸ctio ¸n: o ¸r.l ¸ Ope ¸rand ¸s: ~ ¸A, ~ ¸A/Nπqy∫OÔ\&/C/k/kBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ'C &+ ∂ºéXg &+ `ÇOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgROÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ`&<éX∂ºéXgÆOÔˇOÔˇ¥ O ¸A-re ¸gist ¸er n ¸ot a ¸llow ¸ed a ¸s op ¸eran ¸d. ~ ¸%Ins ¸truc ¸tion ¸: or ¸.l ¸Oper ¸ands ¸: ~A ¸, ~A ¸/Nπqy∫OÔP&/C/k/kBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXgåOÔˇÙOÔˇ¯OÔˇË/<ÄNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔ`àOÔˇÙOÔˇ¯OÔˇË/<ÄNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ»N^NuK–ƒAPPENDCOMMON-LISPÆENCODED-ADDRESS-DATAASSEMBLERéLISTx+bENCODED-ADDRESS-REGB*,%INTEGERATOMENCODED-ADDRESS-MODEÚ*‹%INTEGERATOMΔ%INTEGERATOM¨*ñ%INTEGERATOMÄENCODED-ADDRESS-REG\%INTEGERATOM: APPEND$ENCODED-ADDRESS-DATALISTÓ+ÿENCODED-ADDRESS-REG∏*¢%INTEGERATOMåENCODED-ADDRESS-MODEh*R%INTEGERATOM<%INTEGERATOM"*%INTEGERATOMˆENCODED-ADDRESS-REG“%INTEGERATOM∂NIL™=î%INTEGERATOM~ENCODED-ADDRESS-MODE^ERROR<%STRINGATOM¥NILÆNILû=à%INTEGERATOMrENCODED-ADDRESS-MODETNILHSYMBOL-VALUE8T"NIL=¯%INTEGERATOM‚ENCODED-ADDRESS-MODE¬ERROR†%STRINGATOMNIL¸NILˆNILÊ=–%INTEGERATOM∫ENCODED-ADDRESS-MODEúNILêSYMBOL-VALUEÄTjNILV=@%INTEGERATOM*ENCODED-ADDRESS-MODEENCODE-ADDRESSÊENCODE-ADDRESSΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< oÊ/C/</<'≠ÿ/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< oÊ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< oÊBπ:˛¸ LÓˇÏN^Nu∫¥ORI.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇORI.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&ORI.LíNVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ&<!L/COÔˇÙOÔˇ¯&<!L/CBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔ&+'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/Nπ<|^&OÔ∂ºéXg&<éX`lOÔˇ¯OÔˇÿ O ¸The ¸sour ¸ce o ¸f 'o ¸ri' ¸must ¸ be ¸an i ¸nteg ¸er/Nπqy∫OÔ,&/CBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXgrOÔˇ¯OÔˇ‘ O ¸ori: ¸ des ¸tina ¸tion ¸ can ¸not ¸be a ¸n a- ¸regi ¸ster ¸/Nπqy∫OÔ0&/CBØ/Nπ;Î&&OÔOÔˇOÔˇ¯OÔˇ/<ÄNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu/~rAPPENDCOMMON-LISP\ENCODED-ADDRESS-DATAASSEMBLER<APPLY" APPENDCONS¯NILË‹TRUNCATEΔ%INTEGERATOM§SYMBOL-FUNCTIONîLISTÄLISTj+TENCODED-ADDRESS-REG4*%INTEGERATOMENCODED-ADDRESS-MODE‰%INTEGERATOMΔERROR∞%STRINGATOMXNILL=6%INTEGERATOM ENCODED-ADDRESS-MODEERRORÍ%STRINGATOMòNILéNILÇINTEGERPbENCODE-ADDRESS>SET(+%INTEGERATOM¸SYMBOL-VALUEÏ*ASSEMBLER-LOCAL-ADDRESS*⁄*ASSEMBLER-LOCAL-ADDRESS*ΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< p"/C/</<#Í˛/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< p"/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< p"Bπ:˛¸ LÓˇÏN^Nu∫¥EOR.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇEOR.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&EOR.L:NVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXg&<éX`fOÔˇ¯OÔˇ‹ O ¸eor: ¸ sou ¸rce ¸must ¸ be ¸a d- ¸regi ¸ster ¸/Nπqy∫OÔ(&/CBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXgrOÔˇ¯OÔˇ‘ O ¸eor: ¸ des ¸tina ¸tion ¸ can ¸not ¸be a ¸n a- ¸regi ¸ster ¸/Nπqy∫OÔ0&/CBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯OÔˇË/<∞NπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu(&APPENDCOMMON-LISPENCODED-ADDRESS-DATAASSEMBLER‰LISTŒ+∏ENCODED-ADDRESS-REGò*Ç%INTEGERATOMlENCODED-ADDRESS-MODEH*2%INTEGERATOM%INTEGERATOM*Ï%INTEGERATOM÷ENCODED-ADDRESS-REG≤%INTEGERATOMîERROR~%STRINGATOM&NIL=%INTEGERATOMÓENCODED-ADDRESS-MODEŒERROR∏%STRINGATOMlNILbNILV=@%INTEGERATOM*ENCODED-ADDRESS-MODEENCODE-ADDRESSÊENCODE-ADDRESSΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< p^/C/</<"M*/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< p^/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< p^Bπ:˛¸ LÓˇÏN^Nu∫¥EORI.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ EORI.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& EORI.LíNVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ&<!L/COÔˇÙOÔˇ¯&<!L/CBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔ&+'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/Nπ<|^&OÔ∂ºéXg&<éX`lOÔˇ¯OÔˇÿ O ¸The ¸sour ¸ce o ¸f 'e ¸ori' ¸ mus ¸t be ¸ an ¸inte ¸ger/Nπqy∫OÔ,&/CBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXgrOÔˇ¯OÔˇ‘ O ¸eor. ¸i: d ¸esti ¸nati ¸on c ¸anno ¸t be ¸ an ¸a-re ¸gist ¸er/Nπqy∫OÔ0&/CBØ/Nπ;Î&&OÔOÔˇOÔˇ¯OÔˇ/< ÄNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu/~rAPPENDCOMMON-LISP\ENCODED-ADDRESS-DATAASSEMBLER<APPLY" APPENDCONS¯NILË‹TRUNCATEΔ%INTEGERATOM§SYMBOL-FUNCTIONîLISTÄLISTj+TENCODED-ADDRESS-REG4*%INTEGERATOMENCODED-ADDRESS-MODE‰%INTEGERATOMΔERROR∞%STRINGATOMXNILL=6%INTEGERATOM ENCODED-ADDRESS-MODEERRORÍ%STRINGATOMòNILéNILÇINTEGERPbENCODE-ADDRESS>SET(+%INTEGERATOM¸SYMBOL-VALUEÏ*ASSEMBLER-LOCAL-ADDRESS*⁄*ASSEMBLER-LOCAL-ADDRESS*ΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< pö/C/</<(•D/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< pö/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< pöBπ:˛¸ LÓˇÏN^Nu∫¥SUB.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇSUB.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&SUB.LNVˇ‡HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ'C&+∂ºéXg &+`ÇOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgROÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ`&<éX∂ºéXg&<éX`ÑOÔˇ¯OÔˇ» O ¸The ¸sour ¸ce o ¸r de ¸stin ¸atio ¸n of ¸ 'su ¸b' m ¸ust ¸be a ¸ d-r ¸egis ¸ter/Nπqy∫OÔ<&/CBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXgåOÔˇÙOÔˇ¯OÔˇË/<êNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔ`àOÔˇÙOÔˇ¯OÔˇË/<êNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÃN^Nu=¯ÏAPPENDCOMMON-LISP÷ENCODED-ADDRESS-DATAASSEMBLER∂LIST†+äENCODED-ADDRESS-REGj*T%INTEGERATOM>ENCODED-ADDRESS-MODE*%INTEGERATOMÓ%INTEGERATOM‘*æ%INTEGERATOM®ENCODED-ADDRESS-REGÑ%INTEGERATOMb APPENDLENCODED-ADDRESS-DATA,LIST+ENCODED-ADDRESS-REG‡* %INTEGERATOM¥ENCODED-ADDRESS-MODEê*z%INTEGERATOMd%INTEGERATOMJ*4%INTEGERATOMENCODED-ADDRESS-REG˙%INTEGERATOMﬁNIL“=º%INTEGERATOM¶ENCODED-ADDRESS-MODEÜERRORp%STRINGATOMNIL¸NILˆNILÊ=–%INTEGERATOM∫ENCODED-ADDRESS-MODEúNILêSYMBOL-VALUEÄTjNILV=@%INTEGERATOM*ENCODED-ADDRESS-MODEENCODE-ADDRESSÊENCODE-ADDRESSΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< p÷/C/</<!òN/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< p÷/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< p÷Bπ:˛¸ LÓˇÏN^Nu∫¥CMP.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇCMP.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&CMP.LÜNVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXg&<éX`xOÔˇ¯OÔˇ– O ¸The ¸dest ¸inat ¸ion ¸of ' ¸cmp' ¸ mus ¸t be ¸ a d ¸-reg ¸iste ¸r/Nπqy∫OÔ4&/CBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯OÔˇË/<∞NπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∑~&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙ/<NπqybOÔ&/C/<@NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu"rfAPPENDCOMMON-LISPPENCODED-ADDRESS-DATAASSEMBLER0LIST+ENCODED-ADDRESS-REG‰*Œ%INTEGERATOM∏ENCODED-ADDRESS-MODEî*~%INTEGERATOMh%INTEGERATOMN*8%INTEGERATOM"ENCODED-ADDRESS-REG˛%INTEGERATOM‡ERROR %STRINGATOMlNILbNILV=@%INTEGERATOM*ENCODED-ADDRESS-MODEENCODE-ADDRESSÊENCODE-ADDRESSΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< q/C/</<1å¬/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< q/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< qBπ:˛¸ LÓˇÏN^Nu∫¥TST.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇTST.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&TST.L NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯OÔˇÏ/<JNπqybOÔ&/COÔˇÙ/<@NπqybOÔ&/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^NuˆÍAPPENDCOMMON-LISP‘ENCODED-ADDRESS-DATAASSEMBLER¥LISTû+àENCODED-ADDRESS-REGh*R%INTEGERATOM<ENCODED-ADDRESS-MODE*%INTEGERATOMÏ%INTEGERATOM“%INTEGERATOM∞ENCODE-ADDRESSêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< qN/C/</<+HN/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< qN/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< qNBπ:˛¸ LÓˇÏN^Nu∫¥SUBI.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ SUBI.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& SUBI.LÃNVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ&<!L/COÔˇÙOÔˇ¯&<!L/CBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔ&+'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/Nπ<|^&OÔ∂ºéXg&<éX`lOÔˇ¯OÔˇÿ O ¸The ¸sour ¸ce o ¸f 's ¸ubi' ¸ mus ¸t be ¸ an ¸inte ¸ger/Nπqy∫OÔ,&/CBØ/Nπ;Î&&OÔOÔˇOÔˇ¯OÔˇ/<ÄNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu)∏¨APPENDCOMMON-LISPñENCODED-ADDRESS-DATAASSEMBLERvAPPLY\ APPENDL<CONS2NIL"TRUNCATE%INTEGERATOMﬁSYMBOL-FUNCTIONŒLIST∫LIST§+éENCODED-ADDRESS-REGn*X%INTEGERATOMBENCODED-ADDRESS-MODE%INTEGERATOMERRORÍ%STRINGATOMòNILéNILÇINTEGERPbENCODE-ADDRESS>SET(+%INTEGERATOM¸SYMBOL-VALUEÏ*ASSEMBLER-LOCAL-ADDRESS*⁄*ASSEMBLER-LOCAL-ADDRESS*ΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< qä/C/</<:'ú/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< qä/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< qäBπ:˛¸ LÓˇÏN^Nu∫¥CLR.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇCLR.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&CLR.L NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯OÔˇÏ/<BNπqybOÔ&/COÔˇÙ/<@NπqybOÔ&/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^NuˆÍAPPENDCOMMON-LISP‘ENCODED-ADDRESS-DATAASSEMBLER¥LISTû+àENCODED-ADDRESS-REGh*R%INTEGERATOM<ENCODED-ADDRESS-MODE*%INTEGERATOMÏ%INTEGERATOM“%INTEGERATOM∞ENCODE-ADDRESSêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< qΔ/C/</<2M/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< qΔ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< qΔBπ:˛¸ LÓˇÏN^Nu∫¥LEAASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇLEAn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&LEA@NVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXg&<éX`xOÔˇ¯OÔˇ– O ¸The ¸dest ¸inat ¸ion ¸of ' ¸lea' ¸ mus ¸t be ¸ an ¸a-re ¸gist ¸er/Nπqy∫OÔ4&/CBØ/Nπ;Î&&OÔOÔˇÙOÔˇ¯OÔˇÏ/<A¿NπqybOÔ&/COÔˇÙ/<NπqybOÔ&/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;ÒŒ&OÔ/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^Nu, APPENDCOMMON-LISP ENCODED-ADDRESS-DATAASSEMBLERÍLIST‘+æENCODED-ADDRESS-REGû*à%INTEGERATOMrENCODED-ADDRESS-MODEN*8ENCODED-ADDRESS-REG%INTEGERATOM˛%INTEGERATOM‡ERROR %STRINGATOMlNILbNILV=@%INTEGERATOM*ENCODED-ADDRESS-MODEENCODE-ADDRESSÊENCODE-ADDRESSΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< r/C/</<17∏/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< r/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< rBπ:˛¸ LÓˇÏN^Nu∫¥JSRASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇJSRn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&JSR∂NVˇÏHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇ¯/kBØ/Nπ<É÷&OÔ∂ºéXgñOÔˇ¯OÔˇÙOÔˇ¯&<∑ò/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/NπE_Δ&OÔOÔˇ¯/kBØ/Nπ<aF&OÔ'COÔˇ¯/kBØ/Nπ<{æ&OÔ∂ºéXgåOÔˇÙOÔˇ¯/kBØ/Nπ;‡V&OÔ/C&<è*/CBØ/Nπ<&OÔ∂ºéXg>OÔˇ¯/kBØ/NπE_Δ&OÔOÔˇÙ/<NπNπqybOÔ&/COÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙOÔˇ¯OÔˇ¯/kBØ/Nπ<V&OÔ/CBØ/Nπ<€.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔ/CBØ/Nπ;Œn&OÔ`û`äOÔˇÙOÔˇ» O ¸Inva ¸lid ¸dest ¸inat ¸ion. ¸~%In ¸stru ¸ctio ¸n: j ¸sr ¸Dest ¸inat ¸ion: ¸ ~A/Nπqy∫OÔ<&/C/kBØ/Nπ;Î&&OÔOÔˇ¯/kBØ/NπE©˛&OÔ'COÔˇÙOÔˇ¯OÔˇ/<NÄNπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇÿN^Nu1¢ñAPPENDCOMMON-LISPÄENCODED-ADDRESS-DATAASSEMBLER`LISTJ+4ENCODED-ADDRESS-REG*˛%INTEGERATOMËENCODED-ADDRESS-MODEƒ%INTEGERATOM¢ENCODE-ADDRESSÜERRORj%STRINGATOMˆCONS‡APPLYΔ APPEND∂¶CONSúNILåÄTRUNCATEj%INTEGERATOMTEXEC-ADDRESS>CADRSYMBOL-FUNCTIONLIST%INTEGERATOM⁄ADD-REFERENCE¿NIL¥EQ§FUNCTIONîCARvNILjCONSPJSYMBOL-VALUE.ADD-REFERENCE APPENDLIST‚LIST“SYMBOL-VALUEºNIL∞ SYMBOLPêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< r>/C/</<:Ñû/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< r>/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< r>Bπ:˛¸ LÓˇÏN^Nu∫¥BRAASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBRAn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BRANVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<`NπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< rz/C/</<&'∞/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< rz/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< rzBπ:˛¸ LÓˇÏN^Nu∫¥BSRASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBSRn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BSRNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<aNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< r∂/C/</<0æ2/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< r∂/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< r∂Bπ:˛¸ LÓˇÏN^Nu∫¥BHIASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBHIn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BHINVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<bNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< rÚ/C/</<9˘¿/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< rÚ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< rÚBπ:˛¸ LÓˇÏN^Nu∫¥BLSASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBLSn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BLSNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<cNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< s./C/</<%ó/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< s./CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< s.Bπ:˛¸ LÓˇÏN^Nu∫¥BCCASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBCCn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BCCNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<dNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< sj/C/</<0Ï/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< sj/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< sjBπ:˛¸ LÓˇÏN^Nu∫¥BCSASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBCSn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BCSNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<eNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< s¶/C/</<9î®/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< s¶/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< s¶Bπ:˛¸ LÓˇÏN^Nu∫¥BNEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBNEn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BNENVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<fNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< s‚/C/</<%$»/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< s‚/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< s‚Bπ:˛¸ LÓˇÏN^Nu∫¥BEQASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBEQn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BEQNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<gNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< t/C/</</Æp/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< t/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< tBπ:˛¸ LÓˇÏN^Nu∫¥BVCASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBVCn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BVCNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<hNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< tZ/C/</<9Mö/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< tZ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< tZBπ:˛¸ LÓˇÏN^Nu∫¥BVSASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBVSn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BVSNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<iNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< tñ/C/</<$ﬂ|/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< tñ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< tñBπ:˛¸ LÓˇÏN^Nu∫¥BPLASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBPLn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BPLNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<jNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< t“/C/</</gN/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< t“/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< t“Bπ:˛¸ LÓˇÏN^Nu∫¥BMIASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBMIn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BMINVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<kNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< u/C/</<9*/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< u/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< uBπ:˛¸ LÓˇÏN^Nu∫¥BGEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBGEn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BGENVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<lNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< uJ/C/</<$ÆÓ/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< uJ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< uJBπ:˛¸ LÓˇÏN^Nu∫¥BLTASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBLTn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BLTNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<mNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< uÜ/C/</</4J/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< uÜ/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< uÜBπ:˛¸ LÓˇÏN^Nu∫¥BGTASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBGTn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BGTNVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<nNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< u¬/C/</<8À,/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< u¬/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< u¬Bπ:˛¸ LÓˇÏN^Nu∫¥BLEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇBLEn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&BLENVˇHÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙOÔˇ¯/<oNπqybOÔ&/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ‹N^Nu˙APPENDCOMMON-LISP‰LISTƒLISTÆ%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJfNVHÁ∏$nGÔOÔˇ&< fJ/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERD0fNVHÁ∏$nGÔOÔˇ&< fÜ/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERD1fNVHÁ∏$nGÔOÔˇ&< f¬/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERD2fNVHÁ∏$nGÔOÔˇ&< f˛/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERD3fNVHÁ∏$nGÔOÔˇ&< g:/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERD4fNVHÁ∏$nGÔOÔˇ&< gv/C&<%â@/C/< NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERD5fNVHÁ∏$nGÔOÔˇ&< g≤/C&<%â@/C/<@NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERD6fNVHÁ∏$nGÔOÔˇ&< gÓ/C&<%â@/C/<ÄNπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERD7fNVHÁ∏$nGÔOÔˇ&< `™/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERA0fNVHÁ∏$nGÔOÔˇ&< `Ê/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERA1fNVHÁ∏$nGÔOÔˇ&< a"/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERA2fNVHÁ∏$nGÔOÔˇ&< a^/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERA3fNVHÁ∏$nGÔOÔˇ&< aö/C&<%â@/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERA4fNVHÁ∏$nGÔOÔˇ&< a÷/C&<%â@/C/< NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERA5fNVHÁ∏$nGÔOÔˇ&< b/C&<%â@/C/<@NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERA6fNVHÁ∏$nGÔOÔˇ&< bN/C&<%â@/C/<ÄNπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM POST-INCREMENT-MASKASSEMBLERA7fNVHÁ∏$nGÔOÔˇ&< bN/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERA7fNVHÁ∏$nGÔOÔˇ&< b/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERA6fNVHÁ∏$nGÔOÔˇ&< a÷/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERA5fNVHÁ∏$nGÔOÔˇ&< aö/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERA4fNVHÁ∏$nGÔOÔˇ&< a^/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERA3fNVHÁ∏$nGÔOÔˇ&< a"/C&<%Œ/C/< NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERA2fNVHÁ∏$nGÔOÔˇ&< `Ê/C&<%Œ/C/<@NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERA1fNVHÁ∏$nGÔOÔˇ&< `™/C&<%Œ/C/<ÄNπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERA0fNVHÁ∏$nGÔOÔˇ&< gÓ/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERD7fNVHÁ∏$nGÔOÔˇ&< g≤/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERD6fNVHÁ∏$nGÔOÔˇ&< gv/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERD5fNVHÁ∏$nGÔOÔˇ&< g:/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERD4fNVHÁ∏$nGÔOÔˇ&< f˛/C&<%Œ/C/<NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERD3fNVHÁ∏$nGÔOÔˇ&< f¬/C&<%Œ/C/< NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERD2fNVHÁ∏$nGÔOÔˇ&< fÜ/C&<%Œ/C/<@NπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERD1fNVHÁ∏$nGÔOÔˇ&< fJ/C&<%Œ/C/<ÄNπqybOÔ&/CBØ/Nπ;ÓÆ&OÔBπ:˛¸ LÓˇÏN^NuRFPUTPROPCOMMON-LISP0%INTEGERATOM PRE-DECREMENT-MASKASSEMBLERD0ŒNVHÁ∏$nGÔOÔˇÙ&< u˛/C/</<$cΔ/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&< u˛/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&< u˛Bπ:˛¸ LÓˇÏN^Nu∫¥MOVEM.LASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíMACRO-FUNCTIONÇ MOVEM.Ln$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& MOVEM.L4NVˇ‘HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5ﬁ&OÔ'COÔˇÙ&<!L/COÔˇÙOÔˇ¯&<!L/CBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔ/<NπqybOÔ&'C/<NπqybOÔ&'C'|éXOÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ<{æ&OÔ∂ºéXg@OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/NπE©˛&OÔ'COÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇ/<L¿NπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ'C&+'COÔˇ¯/kBØ/Nπ;‡V&OÔ'C OÔˇ¯/kBØ/Nπ;’n&OÔ∂ºéXg&<éX`§`&<éXOÔˇÙ/kOÔˇÙ/k &<%â@/CBØ/Nπ;Ó&OÔ/CBØ/Nπ;é&OÔ'COÔˇ¯/kBØ/Nπ;·ñ&OÔ'C∂ºéXgOÔˇ¯/kBØ/Nπ;‡V&OÔ'C `ˇ0OÔˇ/k/kOÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ;Ìn&OÔ```\OÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ<&OÔ/CBØ/Nπ;‡V&OÔ/CBØ/NπE©˛&OÔ'COÔˇ/<H¿NπqybOÔ&/COÔˇÙOÔˇ¯/kBØ/NπE∫.&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/COÔˇ¯/kBØ/NπE∑~&OÔ/CBØ/Nπ;é&OÔ'C&+'C$OÔˇ¯/k$BØ/Nπ;‡V&OÔ'C(OÔˇ¯/k$BØ/Nπ;’n&OÔ∂ºéXg&<éX` `&<éXOÔˇ¯/k(BØ/Nπ<É÷&OÔ∂ºéXgLOÔˇÙ/kOÔˇÙ/k(&<%Œ/CBØ/Nπ;Ó&OÔ/CBØ/Nπ;é&OÔ'COÔˇ¯/k$BØ/Nπ;·ñ&OÔ'C$∂ºéXgOÔˇ¯/k$BØ/Nπ;‡V&OÔ'C(`ˇ OÔˇ/k/kOÔˇ¯/kBØ/NπE¿^&OÔ/CBØ/Nπ;Ìn&OÔ`Bπ:˛¸ LÓˇ¿N^NuB LIST*COMMON-LISP˙ENCODED-ADDRESS-DATAASSEMBLERΔCAR¨NILúCDR|+fGETVPRE-DECREMENT-MASK8NIL, SYMBOLPNILNIL˛NILÚNULL“CAR™+îENCODED-ADDRESS-REGt*^%INTEGERATOMHENCODED-ADDRESS-MODE$%INTEGERATOM ENCODE-ADDRESSÙCARﬁLAST≤LIST*úENCODED-ADDRESS-DATAhCARNNIL>CDR+GET¯POST-INCREMENT-MASKﬁNIL–NILΔNIL∫NULLöCARr+\ENCODED-ADDRESS-REG<*&%INTEGERATOMENCODED-ADDRESS-MODEÏ%INTEGERATOM“CDR≤ENCODE-ADDRESSúCAR~NILrCONSP\CAR@NIL0%INTEGERATOM%INTEGERATOMSETÚ+‹%INTEGERATOMΔSYMBOL-VALUE∂*ASSEMBLER-LOCAL-ADDRESS*§*ASSEMBLER-LOCAL-ADDRESS*ê NTHCDRt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&<&<</C/</<.hl/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<÷û&OÔOÔˇ¯OÔˇ¯&<&<</CBØ/Nπ<`&OÔ/CBØ/Nπ<„^&OÔ&<&<<Bπ:˛¸ LÓˇÏN^Nu∫¥LONG-WORDSASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíSYMBOL-FUNCTIONÇ LONG-WORDSn$SET-SYMBOL-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& LONG-WORDSNVˇ¸HÁ∏$nGÔ/Nπq}¢OÔ'@/Nπq}“OÔ&<éXOÔˇ¯&<ñF/CBØ/Nπ<`&OÔ/OÔˇ¯OÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔJπ:˛¸f"/</<éX//Nπ;ŒnOÔ&`&9:˛¸/CBØ/Nπ<÷&OÔ _/<///Nπ;ÍÜ&OÔBπ:˛¸ LÓˇËN^NuÏ‡APPLYCOMMON-LISPΔ APPEND∂¶CONSúNILåÄTRUNCATEj%INTEGERATOMHSYMBOL-FUNCTION8LIST.NIL$ %CHECKNULL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&<"é/C/</<vñ/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<÷û&OÔOÔˇ¯OÔˇ¯&<"é/CBØ/Nπ<`&OÔ/CBØ/Nπ<„^&OÔ&<"éBπ:˛¸ LÓˇÏN^Nu∫¥ENCODE-ADDRESSASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíSYMBOL-FUNCTIONÇENCODE-ADDRESSn$SET-SYMBOL-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&ENCODE-ADDRESSÇNVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z`HÁÄ0&<"c“Lﬂ'C/Nπq}“OÔ&<éX'|éXOÔˇ¯OÔˇ¯/kBØ/Nπ<{æ&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg&<éX`vOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgFOÔˇÙOÔˇ¯/kBØ/Nπ;‡V&OÔ/C&<è*/CBØ/Nπ<&OÔ`&<éX∂ºéXg¬OÔˇ¯OÔˇ¯/kBØ/Nπ<V&OÔ/CBØ/Nπ<€.&OÔ'COÔˇ¯/kBØ/NπE_Δ&OÔOÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇ¯/kBØ/NπI¢V&OÔ/CBØ/Nπ;Ìn&OÔ'C`ÄOÔˇ¯OÔˇ¯/kBØ/Nπ<{æ&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg&<éX`vOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgFOÔˇÙOÔˇ¯/kBØ/Nπ;‡V&OÔ/C&<èf/CBØ/Nπ<&OÔ`&<éX∂ºéXg¬OÔˇ¯OÔˇ¯/kBØ/Nπ<V&OÔ/CBØ/Nπ<⁄é&OÔ'COÔˇ¯/kBØ/NπE_Δ&OÔOÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇ¯/kBØ/NπI¢V&OÔ/CBØ/Nπ;Ìn&OÔ'C` ¯OÔˇ¯OÔˇ¯/kBØ/Nπ<{æ&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg&<éX`vOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgFOÔˇÙOÔˇ¯/kBØ/Nπ;‡V&OÔ/C&<∑H/CBØ/Nπ<&OÔ`&<éX∂ºéXg‹OÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ<V&OÔ/CBØ/Nπ<`&OÔ/CBØ/Nπ<⁄é&OÔ'COÔˇ¯/kBØ/NπE_Δ&OÔOÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇ¯/kBØ/NπI¢V&OÔ/CBØ/Nπ;Ìn&OÔ'C`VOÔˇ¯/kBØ/Nπ<É÷&OÔ∂ºéXg OÔˇÙ/kOÔˇ¯&< h*/CBØ/Nπ<aF&OÔ/CBØ/Nπ<&OÔ∂ºéXgVOÔˇÙ/<NπqybOÔ&/COÔˇ¯/kBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ'C`~OÔˇÙ/kOÔˇ¯&< hf/CBØ/Nπ<aF&OÔ/CBØ/Nπ<&OÔ∂ºéXgVOÔˇÙ/<NπqybOÔ&/COÔˇ¯/kBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ'C`‡OÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXg∞OÔˇ¯OÔˇÙOÔˇ¯&<∑ò/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/NπE_Δ&OÔOÔˇ¯/kBØ/Nπ<aF&OÔ'COÔˇÙ/k&<"c“/CBØ/Nπ<&OÔ∂ºéXglOÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇ¯/kBØ/NπI¢V&OÔ/CBØ/Nπ;Ìn&OÔ'C`~OÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ< ˛&OÔ/CBØ/Nπ;⁄6&OÔ'C`&<éX` OÔˇ¯/kBØ/Nπ<{æ&OÔ∂ºéXgOÔˇÙOÔˇ¯/kBØ/Nπ;‡V&OÔ/COÔˇ¯&< hf/CBØ/Nπ<aF&OÔ/CBØ/Nπ<&OÔ∂ºéXgOÔˇ¯/kBØ/Nπ;·ñ&OÔ∂ºéXgåOÔˇ/<NπqybOÔ&/COÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ<aF&OÔ/COÔˇ¯/kBØ/Nπ;·ñ&OÔ/CBØ/Nπ;Ìn&OÔ`hOÔˇÙ/<NπqybOÔ&/COÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ`éOÔˇÙOÔˇ¯/kBØ/Nπ;‡V&OÔ/COÔˇ¯&< h¢/CBØ/Nπ<aF&OÔ/CBØ/Nπ<&OÔ∂ºéXglOÔˇÙ/<NπqybOÔ&/COÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ`¿OÔˇÙOÔˇ¯/kBØ/Nπ;‡V&OÔ/COÔˇ¯&< hﬁ/CBØ/Nπ<aF&OÔ/CBØ/Nπ<&OÔ∂ºéXglOÔˇÙ/<NπqybOÔ&/COÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ<aF&OÔ/CBØ/Nπ;⁄6&OÔ`ÚOÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ<É÷&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg&<éX`lOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXg<OÔˇ¯OÔˇ¯/kBØ/Nπ;·ñ&OÔ/CBØ/Nπ;’n&OÔ`&<éX∂ºéXg*OÔˇ¯OÔˇÙOÔˇ¯&<∑ò/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/NπE_Δ&OÔOÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ<aF&OÔ/CBØ/NπI¢V&OÔ/CBØ/Nπ;Ìn&OÔ`ÚOÔˇ¯OÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ<|^&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg&<éX`lOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXg<OÔˇ¯OÔˇ¯/kBØ/Nπ;·ñ&OÔ/CBØ/Nπ;’n&OÔ`&<éX∂ºéXgÇOÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/NπI¢V&OÔ/CBØ/Nπ;Ìn&OÔ`öOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgjOÔˇÙOÔˇ‡ O ¸Unkn ¸own ¸addr ¸ess ¸expr ¸essi ¸on: ¸~A/Nπqy∫OÔ$&/C/kBØ/Nπ;Î&&OÔ`&<éX'C`⁄OÔˇ¯/kBØ/Nπ<|^&OÔ∂ºéXgOÔˇÙ/k&<"c“/CBØ/Nπ<&OÔ∂ºéXglOÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇ¯/kBØ/NπI¢V&OÔ/CBØ/Nπ;Ìn&OÔ'C`~OÔˇ/<NπqybOÔ&/C/<NπqybOÔ&/COÔˇÙ/k/<NπqybOÔ&/CBØ/Nπ< ˛&OÔ/CBØ/Nπ;⁄6&OÔ'C`öOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgjOÔˇÙOÔˇ‡ O ¸Unkn ¸own ¸addr ¸ess ¸expr ¸essi ¸on: ¸~A/Nπqy∫OÔ$&/C/kBØ/Nπ;Î&&OÔ`&<éXOÔˇÙOÔˇ¯/kBØ/Nπ<:ﬁ&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ıé&OÔ∂ºéXg∞OÔˇÙ&<!L/COÔˇÙOÔˇ¯&<!L/CBØ/Nπ<aF&OÔ/COÔˇÙ/<NπqybOÔ&/COÔˇ¯/kBØ/Nπ<:ﬁ&OÔ/CBØ/Nπ;ÒŒ&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔ&+`Bπ:˛¸ LÓˇ–N^NuŸnZSETCOMMON-LISPD+.* LENGTH¯%INTEGERATOMﬁSYMBOL-VALUEŒ$*ASSEMBLER-LOCAL-ADDRESS*ASSEMBLERº*ASSEMBLER-LOCAL-ADDRESS*ÆNIL¢>å%INTEGERATOMv LENGTH\NILLERROR0%STRINGATOMÍNILﬁSYMBOL-VALUEŒT∂LIST†MODä%INTEGERATOMj%INTEGERATOMT%INTEGERATOM6LIST* LONG-WORDS%INTEGERATOMÍ%INTEGERATOM÷NIL EQ∫LONG¶NILöINTEGERP|NILlERRORP%STRINGATOM NIL˛SYMBOL-VALUEÓT⁄LIST*ƒ LONG-WORDSÆCARä%INTEGERATOMt%INTEGERATOM`NILZNILJNULL4CDRNIL SYMBOL-VALUE ˙T ÏNIL ‚NIL ÷NOT ¿INTEGERP ™CAR ÇLIST* l LONG-WORDS VSYMBOL-VALUE @CAR %INTEGERATOM %INTEGERATOMÏADD-REFERENCE÷ APPEND¿LIST™CARÜLISTvSYMBOL-VALUE`NILZNILJNULL4CDRNIL SYMBOL-VALUE˙TÏNIL‚NIL÷NOT¿ SYMBOLP™CARÇLISTlSYMBOL-VALUEVCAR2%INTEGERATOMNIL MEMBER ¸SYMBOL-VALUE ÏA-DEC-REGISTERS ÿCAR ¥LIST ûSYMBOL-VALUE àCAR d%INTEGERATOM PNIL D MEMBER .SYMBOL-VALUE A-INC-REGISTERS CAR ÊLIST –SYMBOL-VALUE ∫CAR ñ%INTEGERATOM |LIST* fCDR FSYMBOL-VALUE 0CAR %INTEGERATOM¯NILÏCDR“NILΔ MEMBER∞SYMBOL-VALUE†A-REGISTERSåCARnNILbCONSPHNIL4LISTMOD%INTEGERATOMË%INTEGERATOM“%INTEGERATOM¥LIST*û LONG-WORDS~%INTEGERATOMh%INTEGERATOMTNILHEQ8LONGSYMBOL-VALUEADD-REFERENCEÏ APPEND÷LIST∂LIST¶SYMBOL-VALUEêNILÑSYMBOL-VALUEtT\LISTFSYMBOL-VALUE&%INTEGERATOMNIL MEMBERSYMBOL-VALUE‡A-REGISTERSæLIST®SYMBOL-VALUEà%INTEGERATOMtNILh MEMBERRSYMBOL-VALUEBD-REGISTERS*NIL SYMBOLP˙LIST*‰ LONG-WORDSƒ%INTEGERATOMÆ%INTEGERATOMòADD-REFERENCEx ADDRESSbSYMBOL-FUNCTIONLCADR*NIL$NILEQSYMBOL-FUNCTIONÙCAR÷NIL SYMBOL-VALUE∫T¨NIL¢NILñNOTÄCONSPXLIST*B LONG-WORDS"%INTEGERATOM%INTEGERATOMˆADD-REFERENCE÷ ADDRESS¿CADR¢NILúNILåEQ|QUOTElCARNNILBSYMBOL-VALUE2T$NILNILNOT¯CONSP–LIST*∫ LONG-WORDSö%INTEGERATOMÑ%INTEGERATOMnADD-REFERENCENEXEC-ADDRESS8CADRNILNILEQÙFUNCTION‰CARΔNIL∫SYMBOL-VALUE™TúNILíNILÜNOTpCONSPTNILNNILD %CHECKNULL4LONG%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&<"ä∞/C/</<$g^/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<÷û&OÔOÔˇ¯OÔˇ¯&<"ä∞/CBØ/Nπ<`&OÔ/CBØ/Nπ<„^&OÔ&<"ä∞Bπ:˛¸ LÓˇÏN^Nu∫¥ENCODED-ADDRESS-MODEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíSYMBOL-FUNCTIONÇENCODED-ADDRESS-MODEn$SET-SYMBOL-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&ENCODED-ADDRESS-MODEdNVˇ¸HÁ∏$nGÔ/Nπq}¢OÔ'@/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;‡V&OÔBπ:˛¸ LÓˇËN^NuPDCARCOMMON-LISP.NIL$ %CHECKNULL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&<"àä/C/</<(~ò/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<÷û&OÔOÔˇ¯OÔˇ¯&<"àä/CBØ/Nπ<`&OÔ/CBØ/Nπ<„^&OÔ&<"àäBπ:˛¸ LÓˇÏN^Nu∫¥ENCODED-ADDRESS-REGASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíSYMBOL-FUNCTIONÇENCODED-ADDRESS-REGn$SET-SYMBOL-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&ENCODED-ADDRESS-REGdNVˇ¸HÁ∏$nGÔ/Nπq}¢OÔ'@/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ<V&OÔBπ:˛¸ LÓˇËN^NuPDCADRCOMMON-LISP.NIL$ %CHECKNULL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&<"è∞/C/</<,Ω2/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<÷û&OÔOÔˇ¯OÔˇ¯&<"è∞/CBØ/Nπ<`&OÔ/CBØ/Nπ<„^&OÔ&<"è∞Bπ:˛¸ LÓˇÏN^Nu∫¥ENCODED-ADDRESS-DATAASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíSYMBOL-FUNCTIONÇENCODED-ADDRESS-DATAn$SET-SYMBOL-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&ENCODED-ADDRESS-DATAdNVˇ¸HÁ∏$nGÔ/Nπq}¢OÔ'@/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ<ñ&OÔBπ:˛¸ LÓˇËN^NuPDCDDRCOMMON-LISP.NIL$ %CHECKNULL%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&< –/C/</<q/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<÷û&OÔOÔˇ¯OÔˇ¯&< –/CBØ/Nπ<`&OÔ/CBØ/Nπ<„^&OÔ&< –Bπ:˛¸ LÓˇÏN^Nu∫¥ASSEMBLECOMMON-LISP®NULL-ENVIRONMENTíSYMBOL-FUNCTIONÇASSEMBLEn$SET-SYMBOL-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&ASSEMBLEHNVˇ∏HÁ∏$nGÔ/Nπq}¢OÔ'@/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇÙOÔˇ¯&<ræ/CBØ/Nπ<aF&OÔ/COÔˇ¯&<•»/CBØ/Nπ<`&OÔ/CBØ/Nπ<∑Ê&OÔ'C&<éX'C&<éX'C/<NπqybOÔ&'C/</+/<!§/Nπ<‘˛OÔ/<NπqybOÔ&'C/</+/<!L/Nπ<‘˛OÔ&<éX'C /</+ /<!/Nπ<‘˛OÔ'|éX$OÔˇ–/p/Nπq∫OÔ/Nπqs¢OÔ&/JÄf.&+'C('|éX,OÔˇ¯/k(BØ/Nπ;’n&OÔ∂ºéXg&<éX`¥`&<éXOÔˇ¯/k(BØ/Nπ;‡V&OÔ'C,OÔˇ¯/k,BØ/Nπ<É÷&OÔ∂ºéXgLOÔˇ/k,/kOÔˇ¯&<!§/CBØ/Nπ<aF&OÔ/CBØ/Nπ<πΔ&OÔ`ˆOÔˇ¯/k,BØ/Nπ<{æ&OÔ∂ºéXg8OÔˇ¯OÔˇ¯/k,BØ/Nπ;‡V&OÔ/CBØ/Nπ<|^&OÔ∂ºéXg"OÔˇ¯/k,BØ/Nπ;·ñ&OÔ'C,OÔˇ¯/k,BØ/Nπ;‡V&OÔ'C$OÔˇ¯/k$BØ/Nπ<É÷&OÔ∂ºéXg&<éX`ZOÔˇÙOÔˇË O ¸Inva ¸lid ¸inst ¸ruct ¸ion: ¸ ~A/Nπqy∫OÔ&/C/k$BØ/Nπ;Î&&OÔOÔˇ¯/k$BØ/Nπ<&OÔ∂ºéXg&<éX`lOÔˇÙOÔˇ‹ O ¸No d ¸efin ¸itio ¸n fo ¸r in ¸stru ¸ctio ¸n: ~ ¸A/Nπqy∫OÔ(&/C/k,BØ/Nπ;Î&&OÔOÔˇÙ&<!L/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔOÔˇ¯/k,BØ/Nπ;Ïf&OÔ'C,OÔˇ¯OÔˇ¯/k,BØ/Nπ<{æ&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg&<éX`ÜOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgVOÔˇ¯OÔˇ¯OÔˇ¯/k,BØ/Nπ;‡V&OÔ/CBØ/Nπ<|^&OÔ/CBØ/Nπ<Ä&OÔ`&<éX∂ºéXgjOÔˇOÔˇ¯&<éX/CBØ/Nπ;⁄6&OÔ/C/k,OÔˇ¯/k(BØ/Nπ;·ñ&OÔ/CBØ/Nπ<÷&OÔ'C(`¸OÔˇ¯/k,BØ/Nπ<{æ&OÔ∂ºéXg÷OÔˇÙ&<!§/COÔˇÙOÔˇ¯&<!§/CBØ/Nπ<aF&OÔ/COÔˇÙOÔˇ¯/k,BØ/Nπ<:ﬁ&OÔ/C/<NπqybOÔ&/CBØ/Nπ;ÒŒ&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔOÔˇÙ/k,/kBØ/Nπ;Œn&OÔ'C`öOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXgjOÔˇÙOÔˇ‡ O ¸Inva ¸lid ¸labe ¸l en ¸coun ¸tere ¸d: ~ ¸A/Nπqy∫OÔ$&/C/k,BØ/Nπ;Î&&OÔ`&<éXOÔˇ¯/k(BØ/Nπ;·ñ&OÔ'C(`˙ OÔˇ¯/kBØ/Nπ<9û&OÔ'COÔˇÙ&<!§/C/<NπqybOÔ&/CBØ/Nπ;‚÷&OÔ&+'C0OÔˇ¯/k0BØ/Nπ;‡V&OÔ'C4OÔˇ¯/k0BØ/Nπ;’n&OÔ∂ºéXg&<éX`.`&<éXOÔˇ¯/k4BØ/Nπ;‡V&OÔ'C$OÔˇÙOÔˇÙ/k$/<NπqybOÔ&/CBØ/Nπ;ˆŒ&OÔ/C/<NπqybOÔ&/CBØ/Nπ;Û&OÔ∂ºéXgΔOÔˇ¯OÔˇ¯OÔˇ¯/k4BØ/Nπ;·ñ&OÔ/CBØ/Nπ<{æ&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg&<éX`lOÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXg<OÔˇ¯OÔˇ¯/k4BØ/Nπ<V&OÔ/CBØ/Nπ<É÷&OÔ`&<éX∂ºéXgÓOÔˇ¯/k4BØ/Nπ<V&OÔ'C8OÔˇÙ/k8/kBØ/Nπ<π&&OÔ'C<&+<∂ºéXg&<éX`TOÔˇÙOÔˇÏ O ¸Labe ¸l no ¸t fo ¸und: ¸ ~A/Nπqy∫OÔ&/C/k8BØ/Nπ;Î&&OÔOÔˇ¯/k<BØ/Nπ<|^&OÔ∂ºéXg&<éX`~OÔˇOÔˇ‘ O ¸Inva ¸lid ¸labe ¸l fo ¸und. ¸~%~A ¸Labe ¸l: ~ ¸A Va ¸lue: ¸ ~A/Nπqy∫OÔ0&/C/k8/k<BØ/Nπ;Î&&OÔOÔˇÙ/k4OÔˇÙ/k<OÔˇÙOÔˇ¯&<!§/CBØ/Nπ<aF&OÔ/C/<NπqybOÔ&/CBØ/Nπ;é&OÔ/CBØ/Nπ;Ò.&OÔ/CBØ/Nπ@æ&OÔOÔˇÙ&<!§/COÔˇÙOÔˇ¯&<!§/CBØ/Nπ<aF&OÔ/COÔˇÙ/<NπqybOÔ&/COÔˇ¯/k4BØ/Nπ<:ﬁ&OÔ/CBØ/Nπ;ÒŒ&OÔ/CBØ/Nπ;é&OÔ/CBØ/Nπ;‚÷&OÔ&+4'C@OÔˇ¯/k@BØ/Nπ;‡V&OÔ'CDOÔˇ¯/k@BØ/Nπ;’n&OÔ∂ºéXg&<éX`Ä`&<éXOÔˇÙ/kD/kBØ/Nπ;Œn&OÔ'COÔˇ¯/k@BØ/Nπ;·ñ&OÔ'C@∂ºéXgOÔˇ¯/k@BØ/Nπ;‡V&OÔ'CD`ˇTOÔˇ¯/k0BØ/Nπ;·ñ&OÔ'C0∂ºéXgOÔˇ¯/k0BØ/Nπ;‡V&OÔ'C4`˙¶OÔˇOÔˇ¯/kBØ/Nπ<9û&OÔ/COÔˇ¯&<!/CBØ/Nπ<aF&OÔ/C/kBØ/Nπ<›n&OÔ/ |:˛¸/Nπq¬OÔˇ¯/<&<éX/&<!§/&<!L/&<!//Nπ;ÌnOÔ&/CBØ/Nπ<’Œ&OÔ |:˛¸ ü& _Jàg /Nπq“OÔ0Bπ:˛¸ LÓˇ§N^Nu©4*%CONTINUEEXCEPTIONCOMMON-LISP $POP-SPECIAL-BINDINGS ÙLIST* Í!*ASSEMBLER-REFERENCES*ASSEMBLER ‚*ASSEMBLER-LOCAL-ADDRESS* ⁄*ASSEMBLER-ADDRESS* “NIL ¬%POPCATCHER ∫ ¨%BUILD-FUNCTION êSYMBOL-VALUE Ä*ASSEMBLER-REFERENCES* l REVERSE DCAR *NIL CDRˆCAR‹NILÃCDR¨CONSêNILÇNILxNILlNULLLCAR(SET+¸*Ê LENGTHΔ%INTEGERATOM¨SYMBOL-VALUEú*ASSEMBLER-ADDRESS*ä*ASSEMBLER-ADDRESS*z%SETCADRd-N+8%INTEGERATOM"SYMBOL-VALUE*ASSEMBLER-ADDRESS* ÍERROR »%STRINGATOM pNIL fNIL ZINTEGERP >ERROR "%STRINGATOM ÓNIL ‰NIL – GETHASH ™CADR êNIL äNIL z SYMBOLP dCADR FNIL :SYMBOL-VALUE *T NIL NIL NOTCONSP⁄CDR∏NIL¨=ñ%INTEGERATOMÄTRUNCATEj%INTEGERATOMFCAR0NIL"NILNILNULLÏCAR»SET≤%INTEGERATOM¢*ASSEMBLER-ADDRESS*é REVERSEjCDRTNILDERROR(%STRINGATOM‚NIL÷SYMBOL-VALUEΔTÆCONSåSETv+`*J%INTEGERATOM4 LENGTHSYMBOL-VALUE*ASSEMBLER-ADDRESS*Ó*ASSEMBLER-ADDRESS*‡NIL‘CONSP∞ APPENDöCDRtLISTdNILRNILLNIL<NOT&INTEGERPCARÓNIL‚SYMBOL-VALUE“TƒNIL∫NILÆNOTòCONSPtMACROEXPAND-1XSETB%INTEGERATOM2*ASSEMBLER-LOCAL-ADDRESS*"ERROR%STRINGATOM∫NIL∞NIL§MACRO-FUNCTIONàERRORl%STRINGATOM2NIL(NIL SYMBOLP¸CAR‹CDR¬NIL∂INTEGERP†CARÇNILvCONSPV ADDHASH@SYMBOL-VALUE0*ASSEMBLER-ADDRESS*NIL SYMBOLPÊCAR–NIL¬NIL∏NIL¨NULLîNILx %SETJMPl%PUSHCATCHERZNILP$PUSH-SPECIAL-BINDINGSH*ASSEMBLER-REFERENCES*4NIL*$PUSH-SPECIAL-BINDINGS"*ASSEMBLER-LOCAL-ADDRESS*%INTEGERATOM¯$PUSH-SPECIAL-BINDINGS*ASSEMBLER-ADDRESS*÷%INTEGERATOMΔNILºNIL¨MAKE-HASH-TABLEñSYMBOL-FUNCTIONÜEQLrSYMBOL-VALUEb TESTKEYWORDTNILJ %CHECKNULL@NIL$%CHECKOBJ%CHECKOBJŒNVHÁ∏$nGÔOÔˇÙ&<"2ê/C/</<#%V/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<÷û&OÔOÔˇ¯OÔˇ¯&<"2ê/CBØ/Nπ<`&OÔ/CBØ/Nπ<„^&OÔ&<"2êBπ:˛¸ LÓˇÏN^Nu∫¥ADD-REFERENCEASSEMBLER®NULL-ENVIRONMENTCOMMON-LISPíSYMBOL-FUNCTIONÇADD-REFERENCEn$SET-SYMBOL-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION&ADD-REFERENCEZNVˇ¯HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` HÁÄ0/<NπqybOÔ&Lﬂ'C/Nπq}“OÔ&<éXOÔˇÙ&<!/COÔˇÙOÔˇÙ/kOÔˇOÔˇ¯&<!§/CBØ/Nπ<aF&OÔ/COÔˇ¯&<!L/CBØ/Nπ<aF&OÔ/C/kBØ/Nπ;é&OÔ/CBØ/Nπ;Œn&OÔ/COÔˇ¯&<!/CBØ/Nπ<aF&OÔ/CBØ/Nπ;Œn&OÔ/CBØ/Nπ;‚÷&OÔBπ:˛¸ LÓˇ‰N^NuF:SETCOMMON-LISP$CONSSYMBOL-VALUE˛!*ASSEMBLER-REFERENCES*ASSEMBLERÍCONS‘+∏SYMBOL-VALUE®*ASSEMBLER-LOCAL-ADDRESS*îSYMBOL-VALUEÑ*ASSEMBLER-ADDRESS*d*ASSEMBLER-REFERENCES*ZNILP %CHECKNULL:%INTEGERATOM%CHECKOBJ`NVHÁ∏$nGÔOÔˇ¯OÔˇ¯&<'&/CBØ/Nπ<aF&OÔ/CBØ/Nπ<§Ü&OÔBπ:˛¸ LÓˇÏN^NuL@IN-PACKAGECOMMON-LISP*SYMBOL-VALUECOMMON-LISPKEYWORDFNVHÁ∏$nGÔOÔˇ¯&<N/CBØ/Nπ<≠ñ&OÔBπ:˛¸ LÓˇÏN^Nu2&EXPORTCOMMON-LISP DEFASMŒNVHÁ∏$nGÔOÔˇÙ&<N/C/</<1z∂/Nπ<ÍÆOÔ&/<///Nπ<ÈﬁOÔ/<//Nπ<ÈﬁOÔ/CBØ/Nπ<◊n&OÔOÔˇ¯OÔˇ¯&<N/CBØ/Nπ<&OÔ/CBØ/Nπ<„^&OÔ&<NBπ:˛¸ LÓˇÏN^Nu∫¥DEFASMCOMMON-LISP®NULL-ENVIRONMENTíMACRO-FUNCTIONÇ DEFASMn$SET-MACRO-FUNCTIONZ%FUNCTION-ENVIRONMENTF%FUNCTION-ENVIRONMENT.%COPY-COMPILED-FUNCTION& DEFASMÙNVˇ‰HÁ∏$nGÔ/Nπq}¢OÔ'@Jíg 'Z` '|éX/Nπq}“OÔ&<éXOÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5>&OÔ'COÔˇÙ/<NπqybOÔ&/C/kBØ/Nπ<5ﬁ&OÔ'C&<éX'COÔˇ¯OÔˇÙOÔˇ¯/kBØ/Nπ;‡V&OÔ/C&<ï8/CBØ/Nπ<w^&OÔ/CBØ/Nπ<Ä&OÔ∂ºéXg&<éX`ROÔˇ¯&<é≤/CBØ/Nπ<aF&OÔ∂ºéXg"OÔˇ¯/kBØ/Nπ;·ñ&OÔ`&<éX∂ºéXgOÔˇ¯OÔˇ¯OÔˇOÔˇ¯&<€ÿ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇOÔˇ¯&<êˆ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&<èf/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&<èf/CBØ/Nπ;⁄6&OÔ/COÔˇ¯&<è*/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ'COÔˇ¯/kBØ/Nπ;·ñ&OÔ'COÔˇËOÔˇ¯&<Ÿl/CBØ/Nπ;⁄6&OÔ/C/kOÔˇ¯OÔˇOÔˇ¯&<€ÿ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&<∑H/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&<èf/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇ¯/kBØ/Nπ;‡V&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&<’/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&<è*/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/COÔˇ¯OÔˇÙOÔˇ¯&<èf/CBØ/Nπ;⁄6&OÔ/COÔˇ¯/kBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔ/CBØ/Nπ;⁄6&OÔ/CBØ/Nπ<÷&OÔBπ:˛¸ LÓˇ–N^NuP‡‘APPENDCOMMON-LISPæLIST® APPENDíLISTrLISTbQUOTEFLIST0 APPENDLIST APPENDÓLISTŒLISTæFUNCTION¢LISTíNULL-ENVIRONMENTvLIST` APPENDJLIST4CARLIST˙ APPEND‰LISTŒ APPEND∏LISTòLISTàQUOTElLIST\SYMBOL-FUNCTION@LIST0SETFLIST˛PROGNÊCDRΔ APPEND∞LISTö APPENDÑLISTnCARJLIST4 APPENDLIST APPENDÚLIST‚FUNCTIONŒLISTæQUOTE¢LISTå APPENDvLISTVLISTFQUOTE*LISTDOCUMENTATION˛LISTÓSETF‘NILŒNILæCDR§NILòSYMBOL-VALUEàTzNILpNILdNOTNTYPEP> STRING.CARNIL¸ NTHCDR‡%INTEGERATOMΔNTH™%INTEGERATOMêNTHt%INTEGERATOMZCDRDNIL: %CHECKNULL0NIL%CHECKOBJ